From 59ca512ec8f099a7d4c8aa4392f939d1aa5aee5d Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 27 Aug 2022 19:30:16 -0700 Subject: Implement multiple return values. --- lib/csc/macros-test.csc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/csc/macros-test.csc') 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)) -- cgit v1.3.1