Changeset 11311


Ignore:
Timestamp:
09/13/08 06:35:05 (14 years ago)
Author:
ehuelsmann
Message:

Reinstate error message in LET case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/SpecialOperators.java

    r11310 r11311  
    141141              {
    142142                if (obj.length() > 2)
    143                   return error(new LispError("The LET* binding specification " +
    144                                               obj.writeToString() +
    145                                               " is invalid."));
     143                  return error(new LispError("The " + (sequential ? "LET*" : "LET")
     144                          + " binding specification " +
     145                          obj.writeToString() + " is invalid."));
    146146                try
    147147                  {
     
    189189            specials = ((Cons)specials).cdr;
    190190          }
    191         while (body != NIL)
    192           {
    193             result = eval(body.car(), ext, thread);
    194             body = ((Cons)body).cdr;
    195           }
     191        return progn(body, ext, thread);
    196192      }
    197193    finally
     
    199195        thread.lastSpecialBinding = lastSpecialBinding;
    200196      }
    201     return result;
    202197  }
    203198
Note: See TracChangeset for help on using the changeset viewer.