explicitly alias format to simple-format

diff --git a/scm/lily.scm b/scm/lily.scm
index e03eb489a140fc8070c906822572bd67cc3487e7..101e94a61c120ff084075298d843d868adf717e1 100644 (file)
--- 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 ", ")