parent
33624300a8
commit
f38ec26ea5
|
@ -1,5 +1,5 @@
|
|||
(module embed-me1 mzscheme
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 1~n"))
|
||||
(lambda () (printf "This is 1\n"))
|
||||
'append))
|
||||
|
||||
|
|
|
@ -4,6 +4,6 @@
|
|||
(for-syntax scheme/base))
|
||||
(define-runtime-path file '(lib "icons/file.gif"))
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 1b~n"))
|
||||
(lambda () (printf "This is 1b\n"))
|
||||
#:exists 'append)
|
||||
|
||||
|
|
|
@ -4,6 +4,6 @@
|
|||
(for-syntax scheme/base))
|
||||
(define-runtime-path file '(lib "etc.ss")) ; in mzlib
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 1c~n"))
|
||||
(lambda () (printf "This is 1c\n"))
|
||||
#:exists 'append)
|
||||
|
||||
|
|
|
@ -4,5 +4,5 @@
|
|||
(for-syntax scheme/base))
|
||||
(define-runtime-path file '(lib "file.gif" "icons"))
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 1d~n"))
|
||||
(lambda () (printf "This is 1d\n"))
|
||||
#:exists 'append)
|
||||
|
|
|
@ -4,5 +4,5 @@
|
|||
(for-syntax scheme/base))
|
||||
(define-runtime-path file '(lib "html"))
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 1e~n"))
|
||||
(lambda () (printf "This is 1e\n"))
|
||||
#:exists 'append)
|
||||
|
|
|
@ -2,8 +2,5 @@
|
|||
(require "embed-me1.ss"
|
||||
mzlib/etc)
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 2: ~a~n" true))
|
||||
(lambda () (printf "This is 2: ~a\n" true))
|
||||
'append))
|
||||
|
||||
|
||||
|
||||
|
|
|
@ -37,7 +37,7 @@
|
|||
(mk-dest-bin #t)))
|
||||
|
||||
(define (prepare exe src)
|
||||
(printf "Making ~a with ~a...~n" exe src)
|
||||
(printf "Making ~a with ~a...\n" exe src)
|
||||
(when (file-exists? exe)
|
||||
(delete-file exe)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user