scgame - display-msg

This commit is contained in:
erana 2012-01-18 19:35:06 +09:00
parent ca8cbcba4c
commit 152a3543f2
1 changed files with 2 additions and 2 deletions

View File

@ -45,9 +45,9 @@
;; debugging vars ;; debugging vars
(load "config.scm") (load "config.scm")
(define (display-msg msg) (define (display-msg . msg)
(if SCGAMEDEBUG (if SCGAMEDEBUG
(for-each display (list (aspectmsg) " " msg)) (for-each display (append (list (aspectmsg) " ") msg))
(newline))) (newline)))
;; override for scx-0.2 ;; override for scx-0.2