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

changed some 'pretty-print's to 'pretty-write's

Browse Source 
Closes PR 11001
This commit is contained in:
Matthew Flatt 2010-06-27 10:13:11 -06:00
parent c072373fd6
commit 84503de886
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/configuration/configuration-table.rkt
View File

@ -105,7 +105,7 @@
(define (write-configuration-table new configuration-path)
(define sexpr (configuration-table->sexpr new))
(call-with-output-file configuration-path
(lambda (out) (pretty-print sexpr out))
(lambda (out) (pretty-write sexpr out))
#:exists 'truncate))
; host-table->sexpr : host-table

4
collects/web-server/private/configure.rkt
View File

@ -56,7 +56,7 @@
; write-to-file : str TST -> void
(define (write-to-file file-name x)
(call-with-output-file file-name
(lambda (out) (pretty-print x out))
(lambda (out) (pretty-write x out))
#:exists 'truncate))
(define default-configuration-path default-configuration-table-path)
@ -801,7 +801,7 @@
(call-with-output-file
file-path
(lambda (out)
(pretty-print
(pretty-write
`(module ,CONFIGURE-SERVLET-NAME racket
(require (lib ,CONFIGURE-SERVLET-NAME "web-server" "private"))
(provide (all-from (lib ,CONFIGURE-SERVLET-NAME "web-server" "private")))