scgame - display-msg

2012-01-18 19:35:06 +09:00 · 2012-01-18 19:35:06 +09:00 · 152a3543f2
parent ca8cbcba4c
commit 152a3543f2
1 changed files with 2 additions and 2 deletions
--- a/scsh/scgame/scgame.scm
+++ b/scsh/scgame/scgame.scm
@ -45,9 +45,9 @@
 ;; debugging vars

 (load "config.scm")
-(define (display-msg msg)
+(define (display-msg . msg)
  (if SCGAMEDEBUG
-      (for-each display (list (aspectmsg) " " msg))
+      (for-each display (append (list (aspectmsg) " ") msg))
      (newline)))

 ;; override for scx-0.2