From: Chris Hanson 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)))