suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix snip test example setup

Browse Source
This commit is contained in:
Robby Findler 2015-12-27 08:26:03 -06:00
parent 87e17a89da
commit fc61b26e04
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gui-doc/scribblings/gui/test-snip-example.rkt
View File

@ -59,6 +59,7 @@
gui-loaded))))) gui-loaded)))))
(parameterize ([current-namespace (make-base-namespace)]) (parameterize ([current-namespace (make-base-namespace)])
(namespace-attach-module orig-namespace 'mred/mred)
(define loaded (format "~s" (dynamic-require save-filename 's))) (define loaded (format "~s" (dynamic-require save-filename 's)))
(unless (regexp-match #rx"struct:object:circle-snip%" loaded) (unless (regexp-match #rx"struct:object:circle-snip%" loaded)
(error 'test-snip-example.rkt "didn't find circle snip.3, found ~s" loaded))) (error 'test-snip-example.rkt "didn't find circle snip.3, found ~s" loaded)))