adjusted require syntax

svn: r11178
This commit is contained in:
Robby Findler 2008-08-10 05:18:38 +00:00
parent f411ee9d0a
commit 29b59ecaba

View File

@ -1238,7 +1238,8 @@
(parameterize ((current-namespace (make-base-namespace))) (parameterize ((current-namespace (make-base-namespace)))
(err/rt-test (err/rt-test
(eval '(module m lang/htdp-beginner (eval '(module m lang/htdp-beginner
(require teachpack/htdp/image) overlay)) (require (lib "image.ss" "teachpack/htdp"))
overlay))
(lambda (exn) (lambda (exn)
(regexp-match #rx"must be applied to arguments" (regexp-match #rx"must be applied to arguments"
(exn-message exn))))) (exn-message exn)))))