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