From c008474e938d0132c423279b6d4ec0a188cab797 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Jun 2018 22:26:32 -0700
Subject: [PATCH] Change subexpression marker to not require quoting.

---
 src/runtime/debug.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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)))
-- 
2.25.1