More "~n" -> "\n" changes

original commit: 8e0f8dd39c
This commit is contained in:
Eli Barzilay 2010-08-26 12:10:48 -04:00
parent 33624300a8
commit f38ec26ea5
7 changed files with 7 additions and 10 deletions

View File

@ -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))

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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)

View File

@ -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))

View File

@ -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)))