From 76570de92e70c804851301835edc4cd672983e26 Mon Sep 17 00:00:00 2001 From: eknauel Date: Tue, 27 Sep 2005 16:31:46 +0000 Subject: [PATCH] Fix display-to-string part of darcs patch Wed Sep 21 19:40:54 EEST 2005 Martin Gasbichler --- scheme/utils.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/utils.scm b/scheme/utils.scm index 6191278..e49b32d 100644 --- a/scheme/utils.scm +++ b/scheme/utils.scm @@ -1,12 +1,12 @@ (define (display-to-string val) (let ((exp-port (open-output-string))) - (display exp exp-port) + (display val exp-port) (get-output-string exp-port))) ;;expression as string -(define (write-to-string exp) +(define (write-to-string val) (let ((exp-port (open-output-string))) - (write exp exp-port) + (write val exp-port) (get-output-string exp-port))) (define (on/off-option-processor name)