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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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