~ 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