Fix bug: can't assume that argument to `debugging-info/noise' is a

pair.

diff --git a/v7/src/runtime/debug.scm b/v7/src/runtime/debug.scm
index f015a4a50e0efbfa9a704cf30324d9c1a9969045..8385bad6c838fbcfb512c315f99b588b327d182f 100644 (file)
--- 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 cbb2263bae02de45d9f0c3ee85545d8a27b94b03..ab8f12048f84eec80559892bae5067248187a596 100644 (file)
--- 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. |#
 \f
 (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 5a3ba5866e537883b5cdc633b5f85103ef644641..029560f025b38e5da0cfa2a17f5296db112c1a8c 100644 (file)
--- 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 0887d51852cf1d74df2385dc8732fd4f5c8ff5af..ea0964aa9153b916eb3fadad535cc4059039456a 100644 (file)
--- 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. |#
 \f
 (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 ed78cabfb248f194effdbc372c636925b0cbb10c..1ed6741cdfcfd8c358a8723cdbcd38b0530ed28a 100644 (file)
--- 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!)))