~ chicken-core (chicken-5) e53bea422fe8b80d3c9dec066fe5369ca17e9e58
commit e53bea422fe8b80d3c9dec066fe5369ca17e9e58
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Jul 14 21:34:12 2015 +1200
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Tue Jul 14 21:34:12 2015 +1200
Use `print` for debug-mode printing
Now that `pp` comes from the extras module, we can't rely on it having
been imported anywhere `common-declarations.scm' is used since the
chicken.extras import library may not have been built yet. (The use of
`pp` can be restored after a release that includes a chicken.extras
module.)
diff --git a/common-declarations.scm b/common-declarations.scm
index 843177bc..b3bbd4df 100644
--- a/common-declarations.scm
+++ b/common-declarations.scm
@@ -31,12 +31,9 @@
(debugbuild
(define-syntax d
(syntax-rules ()
- ((_ arg1)
+ ((_ arg ...)
(when (##sys#fudge 13) ; debug-mode
- (chicken.extras#pp arg1)))
- ((_ arg1 more ...)
- (when (##sys#fudge 13)
- (print arg1 more ...))))))
+ (print arg ...))))))
(else
(begin
(declare
Trap