Changeset 11311

Timestamp:

09/13/08 06:35:05 (14 years ago)

Author:

ehuelsmann

Message:

Reinstate error message in LET case.

File:

• trunk/j/src/org/armedbear/lisp/SpecialOperators.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/SpecialOperators.java

@@ -141 +141 @@
               {
                 if (obj.length() > 2)
-                  return error(new LispError("The LET* binding specification " +
-                                              obj.writeToString() +
-                                              " is invalid."));
+                  return error(new LispError("The " + (sequential ? "LET*" : "LET")
+                          + " binding specification " +
+                          obj.writeToString() + " is invalid."));
                 try
                   {
@@ -189 +189 @@
             specials = ((Cons)specials).cdr;
           }
-        while (body != NIL)
-          {
-            result = eval(body.car(), ext, thread);
-            body = ((Cons)body).cdr;
-          }
+        return progn(body, ext, thread);
       }
     finally
@@ -199 +195 @@
         thread.lastSpecialBinding = lastSpecialBinding;
       }
-    return result;
   }