From c7a0079a1af9cfa5a49aabd77a403dd4ced83715 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 12 Feb 2005 03:58:36 +0000 Subject: [PATCH] . original commit: 13e7d0e72325c6baf53af7a38c65dd39104bea9c --- collects/tests/mzscheme/macrolib.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.ss index a642618..6346646 100644 --- a/collects/tests/mzscheme/macrolib.ss +++ b/collects/tests/mzscheme/macrolib.ss @@ -63,7 +63,7 @@ (test 120 'local (local [(define (f y) 'ignore-me (add1 y))] (f 119))) (test 17 'local (local [(define-values (apple b) (values 12 17))] b)) (test 4 'local (local [(define-struct cons (car cdr))] (cons-car (make-cons 4 5)))) -(test 40 'local (local [(define-struct (cons exn) (car cdr))] (cons-car (make-cons "" (void) 40 50)))) +(test 40 'local (local [(define-struct (cons exn) (car cdr))] (cons-car (make-cons "" (current-continuation-marks) 40 50)))) (syntax-test #'(local)) (syntax-test #'(local . 1)) (syntax-test #'(local ()))