diff options
Diffstat (limited to 'lib/csc/macros-test.csc')
| -rw-r--r-- | lib/csc/macros-test.csc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/csc/macros-test.csc b/lib/csc/macros-test.csc index ee4e295..def474f 100644 --- a/lib/csc/macros-test.csc +++ b/lib/csc/macros-test.csc @@ -248,7 +248,7 @@ (define (syntax-rules () ((define (f) body ...) - (builtin-define f (lambda args body ...))))) + (builtin-define f (builtin-lambda args body ...))))) (define (exit) (call-builtin exit code)))) builtins-environment) @@ -264,7 +264,7 @@ (make-lambda (test-ref 'args) (make-sequence (make-constant #f) (test-ref 'args))) (expand-body 'main - '((lambda args args)) + '((builtin-lambda args args)) builtins-environment) transform-ir1)) @@ -277,7 +277,7 @@ (test-ref 'a)) (make-sequence (make-constant #f) (make-constant 7)))) (expand-body 'main - '((lambda args + '((builtin-lambda args (builtin-define a (quote 6)) (builtin-define b a) (quote 7))) @@ -315,7 +315,7 @@ (make-constant #f) (make-lexical-set (test-ref 'args) (make-constant 5)))) (expand-body 'main - '((lambda args + '((builtin-lambda args (set! args 5))) builtins-environment) transform-ir1)) |