From 6a88daecd860dcf4a4faabec32472e4e70185fc4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 6 Dec 2009 05:15:20 +0000 Subject: [PATCH] fixed test for binding of delay that moved again svn: r17223 --- collects/tests/mzscheme/stx.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/stx.ss b/collects/tests/mzscheme/stx.ss index 79b0312bce..468401b84d 100644 --- a/collects/tests/mzscheme/stx.ss +++ b/collects/tests/mzscheme/stx.ss @@ -469,6 +469,7 @@ (let ([b (identifier-binding s)]) (if (list? b) (list* (let-values ([(name base) (module-path-index-split (car b))]) + (fprintf (current-error-port) ">>>>base = ~s\n" base) name) (cadr b) (let-values ([(name base) (module-path-index-split (caddr b))]) @@ -478,7 +479,7 @@ (test '('#%kernel case-lambda (lib "scheme/init") case-lambda 0 0 0) identifier-binding* #'case-lambda) -(test '(scheme/promise delay* (lib "scheme/init") delay 0 0 0) +(test '("private/promise.ss" delay* (lib "scheme/init") delay 0 0 0) identifier-binding* #'delay) (test '('#%kernel #%module-begin (lib "scheme/init") #%plain-module-begin 0 0 0) identifier-binding* #'#%plain-module-begin)