From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 03:26:27 +0000 (-0300)
Subject: explicitly alias format to simple-format
X-Git-Tag: release/2.11.27-1~15^2~4^2~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2c970aa35c6304375ee15c2989a12497906e2157;p=lilypond.git

explicitly alias format to simple-format
---

diff --git a/scm/lily.scm b/scm/lily.scm
index e03eb489a1..101e94a61c 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -115,6 +115,12 @@ on errors, and print a stack trace.")
 	     (scm memory-trace)
 	     (scm coverage)
 	     )
+(define-public (format . rest)
+  "We don't want to use ice-9 format, due to its memory use."
+  
+  (if (string? (car rest))
+      (apply simple-format (cons #f rest))
+      (apply simple-format rest)))
 
 ;; my display
 (define-public (myd k v) (display k) (display ": ") (display v) (display ", ")