Import Debian changes 5d9-4.1debian/5d9-4.1

scm (5d9-4.1) unstable; urgency=high

  * Non-maintainer upload.
  * High-urgency upload for sarge-targetted RC bugfix.
  * Revert upstream "CAUTIOUS" define, which causes the scm build to
    fail its test suite on alpha (and, it appears, powerpc as well).
    Closes: #245810.

scm (5d9-4) unstable; urgency=low

  * Apply patch from 144062 to fix hppa build (Closes: #144062)
  * Change scm.1 section from Jan 4 200 to 1. (lintian)

scm (5d9-3) unstable; urgency=low

  * Properly clean up info files.
  * Make and install Xlibscm.info.

scm (5d9-2) unstable; urgency=low

  * Fix path problem in slibcat.  Hack at mklibcat.scm.  (Closes: #241510)

scm (5d9-1) unstable; urgency=low

  * New upstream release
  * Merge NMU sparc changes (Closes: #191171, #191356)
  * SHORT_INT is defined for ia64 upstream (Closes: #141928)
  * Scheme imps now grouped in info file (has been for a while)
  (Closes: #115452)

1 files changed, 4 insertions, 4 deletions

diff --git a/Macro.scm b/Macro.scm
index 911098b..2d85050 100644
--- a/Macro.scm
+++ b/Macro.scm
@@ -432,10 +432,10 @@
 (define-syntax @print
   (syntax-rules (quote)
     ((_ '?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (newline)))
     ((_ ?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (display " => ")
 	    (let ((x ?arg))
 	      (write x)
@@ -452,10 +452,10 @@
 (define-syntax @pprint
   (syntax-rules (quote)
     ((_ '?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (newline)))
     ((_ ?arg)
-     (begin (display '?arg)
+     (begin (write '?arg)
 	    (display " => ")
 	    (let ((x ?arg))
 	      (pprint x)