From cb11de5b3dddc79968024a6e35f0c8261a80e4a2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 13 Jul 1989 18:38:41 +0000 Subject: [PATCH] Fix bug: can't assume that argument to `debugging-info/noise' is a pair. --- v7/src/runtime/debug.scm | 8 ++++---- v7/src/runtime/framex.scm | 9 ++++++--- v7/src/runtime/runtime.pkg | 3 ++- v8/src/runtime/framex.scm | 9 ++++++--- v8/src/runtime/runtime.pkg | 3 ++- 5 files changed, 20 insertions(+), 12 deletions(-) diff --git a/v7/src/runtime/debug.scm b/v7/src/runtime/debug.scm index f015a4a50..8385bad6c 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.12 1989/05/21 04:31:33 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 14.13 1989/07/13 18:38:31 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -169,7 +169,7 @@ MIT in each case. |# (print-expression current-expression)) ((or (not (debugging-info/undefined-expression? current-expression)) - (not (debugging-info/noise current-expression))) + (not (debugging-info/noise? current-expression))) (write-string (if (stack-frame/compiled-code? current-subproblem) "Compiled code expression unknown" @@ -224,7 +224,7 @@ MIT in each case. |# (write-string ";compiled code")) ((not (debugging-info/undefined-expression? current-expression)) (print-expression current-expression)) - ((debugging-info/noise current-expression) + ((debugging-info/noise? current-expression) (newline) (write-string ";") (write-string ((debugging-info/noise current-expression) false))) @@ -312,7 +312,7 @@ MIT in each case. |# ((not (debugging-info/undefined-expression? expression)) (output-to-string 50 (lambda () (write-sexp (unsyntax expression))))) - ((debugging-info/noise expression) + ((debugging-info/noise? expression) (output-to-string 50 (lambda () diff --git a/v7/src/runtime/framex.scm b/v7/src/runtime/framex.scm index cbb2263ba..ab8f12048 100644 --- a/v7/src/runtime/framex.scm +++ b/v7/src/runtime/framex.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/framex.scm,v 14.8 1989/04/15 01:24:10 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/framex.scm,v 14.9 1989/07/13 18:38:41 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -39,8 +39,11 @@ MIT in each case. |# (define (debugging-info/undefined-expression? expression) (or (eq? expression undefined-expression) - (and (pair? expression) - (eq? (car expression) undefined-expression)))) + (debugging-info/noise? expression))) + +(define (debugging-info/noise? expression) + (and (pair? expression) + (eq? (car expression) undefined-expression))) (define-integrable (debugging-info/noise expression) (cdr expression)) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 5a3ba5866..029560f02 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.41 1989/06/23 21:13:06 ojn Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.42 1989/07/13 18:38:16 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -385,6 +385,7 @@ MIT in each case. |# debugging-info/undefined-environment? debugging-info/undefined-expression? debugging-info/noise + debugging-info/noise? stack-frame/debugging-info) (initialization (initialize-package!))) diff --git a/v8/src/runtime/framex.scm b/v8/src/runtime/framex.scm index 0887d5185..ea0964aa9 100644 --- a/v8/src/runtime/framex.scm +++ b/v8/src/runtime/framex.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/framex.scm,v 14.8 1989/04/15 01:24:10 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/framex.scm,v 14.9 1989/07/13 18:38:41 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -39,8 +39,11 @@ MIT in each case. |# (define (debugging-info/undefined-expression? expression) (or (eq? expression undefined-expression) - (and (pair? expression) - (eq? (car expression) undefined-expression)))) + (debugging-info/noise? expression))) + +(define (debugging-info/noise? expression) + (and (pair? expression) + (eq? (car expression) undefined-expression))) (define-integrable (debugging-info/noise expression) (cdr expression)) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index ed78cabfb..1ed6741cd 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.41 1989/06/23 21:13:06 ojn Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.42 1989/07/13 18:38:16 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -385,6 +385,7 @@ MIT in each case. |# debugging-info/undefined-environment? debugging-info/undefined-expression? debugging-info/noise + debugging-info/noise? stack-frame/debugging-info) (initialization (initialize-package!))) -- 2.25.1