scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix display-to-string 

part of darcs patch Wed Sep 21 19:40:54 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:31:46 +00:00
parent 781fe54df3
commit 76570de92e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/utils.scm
View File

@ -1,12 +1,12 @@
(define (display-to-string val) (define (display-to-string val)
(let ((exp-port (open-output-string))) (let ((exp-port (open-output-string)))
(display exp exp-port) (display val exp-port)
(get-output-string exp-port))) (get-output-string exp-port)))
;;expression as string ;;expression as string
(define (write-to-string exp) (define (write-to-string val)
(let ((exp-port (open-output-string))) (let ((exp-port (open-output-string)))
(write exp exp-port) (write val exp-port)
(get-output-string exp-port))) (get-output-string exp-port)))
(define (on/off-option-processor name) (define (on/off-option-processor name)