From 58347d932e3bc7dd47bea69fc64ccd8e835ffd5c Mon Sep 17 00:00:00 2001
From: pnenzi <pnenzi>
Date: Mon, 17 Sep 2007 13:53:51 +0000
Subject: [PATCH] Fixed a bug in let command for expressions like let
 vec[2]=5.0

---
 ChangeLog              | 6 ++++++
 src/frontend/com_let.c | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index f26d9e634..7409692d9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-17 Paolo Nenzi <p.nenzi@ieee.org>
+ * src/frontend/com_let.c: Applied patch from Friedrich Schmidt to fix
+ the big in let command that prevented the following command to be
+ correctly interpreted: let vec=vector(10)  let vec[2]=5.0 and returning
+ an error instead. The patch has been submitted by Friedrich Schmidt.
+
 2007-09-14 Paolo Nenzi <p.nenzi@ieee.org>
  * src/frontend/inp.c: fixed a bug in com_list() that skipped a line number 
  when in displaying the ".end" line. I just moved the line increment at the 
diff --git a/src/frontend/com_let.c b/src/frontend/com_let.c
index a9dc31286..07dbed67b 100644
--- a/src/frontend/com_let.c
+++ b/src/frontend/com_let.c
@@ -156,7 +156,7 @@ com_let(wordlist *wl)
 	n->v_flags = (t->v_flags | VF_PERMANENT);
 	n->v_length = t->v_length;
 
-	if (!t->v_numdims) {
+	if ((t->v_numdims)<=1) { // changed from "!t->v_numdims" by Friedrich Schmidt
 	    n->v_numdims = 1;
 	    n->v_dims[0] = n->v_length;
 	} else {