From 6e6e5945f990f87220fa46c1258c387e7954b6b1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 2 Jan 2008 03:50:47 +0000 Subject: [PATCH] fix test that used lang/htdp-intermediate svn: r8180 --- collects/tests/mzscheme/stx.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/stx.ss b/collects/tests/mzscheme/stx.ss index 0e0900ae97..ef82c7ba7f 100644 --- a/collects/tests/mzscheme/stx.ss +++ b/collects/tests/mzscheme/stx.ss @@ -454,26 +454,26 @@ bcons)) () [(mod m mz (#%mod-beg req (app call-with-values (lambda () cons) print) void)) (let ([s (syntax cons)]) - (test 'bcons syntax-e s) + (test 'beginner:cons syntax-e s) ; 'was 'bcons s)]))]) (let-values ([(real real-base) (module-path-index-split (car b))] [(nominal nominal-base) (module-path-index-split (caddr b))]) (test '"teachprims.ss" values real) (test 'beginner-cons cadr b) - (test '(lib "lang/htdp-intermediate.ss") values nominal) + (test 'lang/private/beginner-funs values nominal) ; was '(lib "lang/htdp-intermediate.ss") (test 'cons cadddr b))) (let ([b (identifier-binding (syntax-case (expand #'(module m (lib "lang/htdp-intermediate.ss") cons)) () [(mod m beg (#%mod-beg cons)) (let ([s (syntax cons)]) - (test 'cons syntax-e s) + (test 'beginner:cons syntax-e s) ; was 'cons s)]))]) (let-values ([(real real-base) (module-path-index-split (car b))] [(nominal nominal-base) (module-path-index-split (caddr b))]) (test '"teachprims.ss" values real) (test 'beginner-cons cadr b) - (test '(lib "lang/htdp-intermediate.ss") values nominal) + (test 'lang/private/beginner-funs values nominal) ; was '(lib "lang/htdp-intermediate.ss") (test 'cons cadddr b))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;