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

new support file for make-executable tests

Browse Source 
svn: r3392
This commit is contained in:
Matthew Flatt 2006-06-18 02:00:13 +00:00
parent cb7c823206
commit 8d3d7b10d3
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/embed-me6.ss Normal file
View File

@ -0,0 +1,8 @@
(module embed-me6 mzscheme
(with-output-to-file "stdout"
(lambda ()
(printf "This is 6\n")
(with-handlers ([void (lambda (exn) (printf "no etc.ss\n"))])
(printf "~a\n" (dynamic-require '(lib "etc.ss") 'true))))
'append))