From 2c970aa35c6304375ee15c2989a12497906e2157 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys 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