From 2c970aa35c6304375ee15c2989a12497906e2157 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 10 Jun 2007 00:26:27 -0300
Subject: [PATCH] explicitly alias format to simple-format

---
 scm/lily.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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 ", ")
-- 
2.39.5