diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-08-27 19:30:16 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-08-27 19:30:16 -0700 |
| commit | 59ca512ec8f099a7d4c8aa4392f939d1aa5aee5d (patch) | |
| tree | 870b95b19f19c035df62171fdcbaa1ae041e76ae /lib/csc/macros-test.csc | |
| parent | Change argument passing to use lists. (diff) | |
| download | chromatopelma-59ca512ec8f099a7d4c8aa4392f939d1aa5aee5d.tar.zst | |
Implement multiple return values.
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)) |