Import Debian changes 2c0-3debian/2c0-3

slib (2c0-3) unstable; urgency=low

  * New maintainer.
  * slibconfig script to automatically configure guile.
  * Fix type in description, closes: Bug#18996

slib (2c0-2) unstable; urgency=low

  * Minor fix for debian/rules targets

slib (2c0-1) unstable; urgency=low

  * New upstream source
  * New maintainer

1 files changed, 6 insertions, 3 deletions

diff --git a/trace.scm b/trace.scm
index d595277..2ffeaed 100644
--- a/trace.scm
+++ b/trace.scm
@@ -25,7 +25,10 @@
 	(not not)			;tracef will not trace parts
 	(car car) (cdr cdr)		;of itself.
 	(eq? eq?) (+ +) (zero? zero?) (modulo modulo)
-	(apply apply) (display display) (qpn qpn))
+	(apply apply) (display display) (qpn qpn)
+
+	(CALL (string->symbol "CALL"))
+	(RETN (string->symbol "RETN")))
     (lambda (function . optname)
       (set! debug:indent 0)
       (let ((name (if (null? optname) function (car optname))))
@@ -36,12 +39,12 @@
 		 function)
 		(else
 		 (do ((i debug:indent (+ -1 i))) ((zero? i)) (display #\ ))
-		 (apply qpn "CALLED" name args)
+		 (apply qpn CALL name args)
 		 (set! debug:indent (modulo (+ 1 debug:indent) 8))
 		 (let ((ans (apply function args)))
 		   (set! debug:indent (modulo (+ -1 debug:indent) 8))
 		   (do ((i debug:indent (+ -1 i))) ((zero? i)) (display #\ ))
-		   (qpn "RETURNED" name ans)
+		   (qpn RETN name ans)
 		   ans))))))))
 
 ;;; the reason I use a symbol for debug:untrace-object is so