From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 2 Jun 2018 05:26:32 +0000 (-0700)
Subject: Change subexpression marker to not require quoting.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~26
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c008474e938d0132c423279b6d4ec0a188cab797;p=mit-scheme.git

Change subexpression marker to not require quoting.
---

diff --git a/src/runtime/debug.scm b/src/runtime/debug.scm
index d85fa1ef9..ee9830887 100644
--- a/src/runtime/debug.scm
+++ b/src/runtime/debug.scm
@@ -360,8 +360,7 @@ USA.
 	   (newline port)
 	   (write (stack-frame/return-address subproblem) port)))))
 
-(define subexpression-marker
-  ((ucode-primitive string->symbol) "###"))
+(define-integrable subexpression-marker '<!>)
 
 (define (print-subproblem-environment dstate port)
   (let ((environment-list (dstate/environment-list dstate)))