summaryrefslogtreecommitdiffstats
path: root/trace.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:31 -0800
commit5145dd3aa0c02c9fc496d1432fc4410674206e1d (patch)
tree540afc30c51da085f5bd8ec3f4c89f6496e7900d /trace.scm
parent8466d8cfa486fb30d1755c4261b781135083787b (diff)
downloadslib-5145dd3aa0c02c9fc496d1432fc4410674206e1d.tar.gz
slib-5145dd3aa0c02c9fc496d1432fc4410674206e1d.zip
Import Upstream version 3a2upstream/3a2
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))))