From 48ddc05527f9894f322bcb8becd94110ba446291 Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Thu, 8 Jan 2009 07:59:32 +0100 Subject: [PATCH] Improve output of scm->string. Strings are now surrounded with doublequotes. --- scm/lily-library.scm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index f486e26672..3cc4c5201b 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -586,11 +586,19 @@ possibly turned off." ;; don't confuse users with # syntax. ;; (define-public (scm->string val) - (if (and (procedure? val) (symbol? (procedure-name val))) + (if (and (procedure? val) + (symbol? (procedure-name val))) (symbol->string (procedure-name val)) (string-append - (if (self-evaluating? val) "" "'") - (call-with-output-string (lambda (port) (display val port)))))) + (if (self-evaluating? val) + (if (string? val) + "\"" + "") + "'") + (call-with-output-string (lambda (port) (display val port))) + (if (string? val) + "\"" + "")))) (define-public (!= lst r) (not (= lst r))) -- 2.39.5