From 0d58c4a96422cdbd5bce4d0f90a23d78c9a2eca4 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 13 Sep 1990 23:33:49 +0000 Subject: [PATCH] Change subproblem marker to "###". --- v7/src/runtime/debug.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.25.1