Changeset 11333
- Timestamp:
- 10/01/08 20:39:16 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/SpecialOperators.java
r11324 r11333 282 282 final Environment ext = new Environment(env); 283 283 args = ext.processDeclarations(args); 284 LispObject result = NIL; 285 while (args != NIL) 286 { 287 result = eval(args.car(), ext, thread); 288 args = args.cdr(); 289 } 290 return result; 284 return progn(args, ext, thread); 291 285 } 292 286 }; … … 300 294 { 301 295 LispThread thread = LispThread.currentThread(); 302 LispObject result = NIL; 303 while (args != NIL) 304 { 305 result = eval(args.car(), env, thread); 306 args = ((Cons)args).cdr; 307 } 308 return result; 296 return progn(args, env, thread); 309 297 } 310 298 };
Note: See TracChangeset
for help on using the changeset viewer.