From 4f6344963d88b3b05fda121cf2f63013e7e5a5a4 Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Sun, 24 Mar 2019 21:23:38 +0800
Subject: [PATCH] [options] simplify gnc:value->string

---
 libgnucash/app-utils/options.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/libgnucash/app-utils/options.scm b/libgnucash/app-utils/options.scm
index bc0a99e8a0..06d2861fa6 100644
--- a/libgnucash/app-utils/options.scm
+++ b/libgnucash/app-utils/options.scm
@@ -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