Changeset 11220

Timestamp:

05/07/08 00:43:02 (5 years ago)

Author:

mokehehe

Message:

begin追加

Files:

• lang/c/misc/mlisp/compiler/compiler.cpp (modified) (1 diff)

lang/c/misc/mlisp/compiler/compiler.cpp

@@ -286 +286 @@
                                 compile_defmacro(name, vars, body);
                                 return next;
+                        } else if (eq(op, intern("begin"))) {
+                                SExp body = cdr(x);
+                                if (nilp(body)) {
+                                        return next;
+                                } else {
+                                        return compile_block(body, e, next);
+                                }
                         } else {
                                 return compile_pair_loop(cdr(x), compile(car(x), e, cons(APPLY, nil)), e, next);