summaryrefslogtreecommitdiffstats
path: root/trace.scm
diff options
context:
space:
mode:
Diffstat (limited to 'trace.scm')
-rw-r--r--trace.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/trace.scm b/trace.scm
index a075c77..0aa9ab5 100644
--- a/trace.scm
+++ b/trace.scm
@@ -50,8 +50,8 @@
(eq? eq?) (+ +) (zero? zero?) (modulo modulo)
(apply apply) (display display) (qpn qpn) (list list) (cons cons)
- (CALL (string->symbol "CALL"))
- (RETN (string->symbol "RETN")))
+ (CALL 'CALL) ;(string->symbol "CALL")
+ (RETN 'RETN)) ;(string->symbol "RETN")
(lambda (how function . optname)
(set! trace:indent 0)
(let ((name (if (null? optname) function (car optname))))