guile/guile-core/libguile ChangeLog eval.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/03/05 10:54:56

Modified files:
        guile-core/libguile: ChangeLog eval.c 

Log message:
        * eval.c (scm_m_letstar): Removed check for duplicate bindings.
        Duplicate bindings are OK in a let* since a let* is semantically
        equivalent to a nested set of let:s.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1297&r2=1.1298
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/eval.c.diff?r1=1.206&r2=1.207

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1297 
guile/guile-core/libguile/ChangeLog:1.1298
--- guile/guile-core/libguile/ChangeLog:1.1297  Sun Mar  4 23:25:56 2001
+++ guile/guile-core/libguile/ChangeLog Mon Mar  5 10:54:55 2001
@@ -1,3 +1,9 @@
+2001-03-05  Mikael Djurfeldt  <address@hidden>
+
+       * eval.c (scm_m_letstar): Removed check for duplicate bindings.
+       Duplicate bindings are OK in a let* since a let* is semantically
+       equivalent to a nested set of let:s.
+
 2001-03-05  Martin Grabmueller  <address@hidden>
 
        * print.c (scm_print_options): Fixed texinfo in docstring.
Index: guile/guile-core/libguile/eval.c
diff -u guile/guile-core/libguile/eval.c:1.206 
guile/guile-core/libguile/eval.c:1.207
--- guile/guile-core/libguile/eval.c:1.206      Sun Mar  4 09:09:34 2001
+++ guile/guile-core/libguile/eval.c    Mon Mar  5 10:54:55 2001
@@ -712,8 +712,6 @@
       arg1 = SCM_CAR (proc);
       SCM_ASSYNT (2 == scm_ilength (arg1), xorig, scm_s_bindings, s_letstar);
       SCM_ASSYNT (SCM_SYMBOLP (SCM_CAR (arg1)), xorig, scm_s_variable, 
s_letstar);
-      if (scm_c_improper_memq (SCM_CAR (arg1), vars))
-       scm_misc_error (s_letstar, scm_s_duplicate_bindings, SCM_EOL);
       *varloc = scm_cons2 (SCM_CAR (arg1), SCM_CAR (SCM_CDR (arg1)), SCM_EOL);
       varloc = SCM_CDRLOC (SCM_CDR (*varloc));
       proc = SCM_CDR (proc);