scgame - display-msg
This commit is contained in:
parent
ca8cbcba4c
commit
152a3543f2
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue