From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Sep 1990 23:33:49 +0000 (+0000)
Subject: Change subproblem marker to "###".
X-Git-Tag: 20090517-FFI~11184
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0d58c4a96422cdbd5bce4d0f90a23d78c9a2eca4;p=mit-scheme.git

Change subproblem marker to "###".
---

diff --git a/v7/src/runtime/debug.scm b/v7/src/runtime/debug.scm
index 42a0f054a..bcb533d02 100644
--- a/v7/src/runtime/debug.scm
+++ b/v7/src/runtime/debug.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.21 1990/09/13 23:30:16 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.22 1990/09/13 23:33:49 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -258,7 +258,7 @@ MIT in each case. |#
 	  (write-string
 	   "There is no execution history for this subproblem.")))))
 
-(define subexpression-marker (string->symbol "#SUBPROBLEM#"))
+(define subexpression-marker (string->symbol "###"))
 
 (define (command/print-reductions dstate)
   (let ((reductions (dstate/reductions dstate))