mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[options] simplify gnc:value->string
This commit is contained in:
parent
98811d7e71
commit
4f6344963d
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user