Fix typo that caused "special form" to appear on console when the

debugger was run under Edwin.

diff --git a/v7/src/runtime/dbgutl.scm b/v7/src/runtime/dbgutl.scm
index 40d1067849dfecc016e3b40503d45bb6583cb143..4be7ec2513c576e0e047a77db6c63e4e7db6fe7f 100644 (file)
--- a/v7/src/runtime/dbgutl.scm
+++ b/v7/src/runtime/dbgutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.15 1992/02/08 15:03:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/dbgutl.scm,v 14.16 1992/02/13 18:51:54 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
              (begin
                (write-string "a " port)
                (write-string (string-upcase rename) port)
-               (write-string " special form") port)
+               (write-string " special form" port))
              (begin
                (write-string "the procedure: " port)
                (write-dbg-upcase-name name port))))

diff --git a/v8/src/runtime/dbgutl.scm b/v8/src/runtime/dbgutl.scm
index 95247be37b1f48a619ed203cdf7c4c82b6966f3d..99e2343f0a7a2f1fae6d621687d3f6cdda642b0d 100644 (file)
--- a/v8/src/runtime/dbgutl.scm
+++ b/v8/src/runtime/dbgutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.15 1992/02/08 15:03:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/dbgutl.scm,v 14.16 1992/02/13 18:51:54 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
              (begin
                (write-string "a " port)
                (write-string (string-upcase rename) port)
-               (write-string " special form") port)
+               (write-string " special form" port))
              (begin
                (write-string "the procedure: " port)
                (write-dbg-upcase-name name port))))