From 5145dd3aa0c02c9fc496d1432fc4410674206e1d Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:31 -0800
Subject: Import Upstream version 3a2

---
 trace.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'trace.scm')

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))))
-- 
cgit v1.2.3