diff options
Diffstat (limited to 'csc/macros-test.csc')
| -rw-r--r-- | csc/macros-test.csc | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/csc/macros-test.csc b/csc/macros-test.csc index 6211131..92fda88 100644 --- a/csc/macros-test.csc +++ b/csc/macros-test.csc @@ -9,11 +9,11 @@ lexical-set-name lexical-set? make-constant - make-lexical-ref make-lambda-case make-letrec + make-lexical-ref make-library-ref - void?) + make-sequence) (only (csc testing) assert-equal test) @@ -180,8 +180,8 @@ (test builtin-case-lambda-cases (assert-equal ir1=? - (make-lambda-case '(x y z) #f #f (make-sequence (make-void) (make-constant 5)) - (make-lambda-case '(a b c) 'd #f (make-sequence (make-void) (make-constant 6)) '())) + (make-lambda-case '(x y z) #f #f (make-sequence (make-constant #f) (make-constant 5)) + (make-lambda-case '(a b c) 'd #f (make-sequence (make-constant #f) (make-constant 6)) '())) (expand '(case-lambda ((x y z) (quote 5)) @@ -195,7 +195,7 @@ (make-letrec #t '(a b) #f (list (make-constant 6) (make-lexical-ref 'a #f)) - (make-sequence (make-void) (make-constant 7)))) + (make-sequence (make-constant #f) (make-constant 7))) '()) (expand '(case-lambda ((x) |