[options] simplify gnc:value->string

This commit is contained in:
Christopher Lam 2019-03-24 21:23:38 +08:00
parent 98811d7e71
commit 4f6344963d

View File

@ -209,9 +209,7 @@ the option '~a'."))
")))")))
(define (gnc:value->string value)
(let ((result (call-with-output-string
(lambda (port) (write value port)))))
result))
(format #f "~s" value))
(define (gnc:make-string-option
section