From 88290d88a6e58b1e677263e4b4a9647cb60a6752 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Fri, 23 Jan 1987 00:22:29 +0000
Subject: [PATCH] *** empty log message ***

---
 v7/src/runtime/advice.scm | 5 ++++-
 v7/src/runtime/bitstr.scm | 5 ++++-
 v7/src/runtime/boot.scm   | 5 ++++-
 v7/src/runtime/char.scm   | 5 ++++-
 v7/src/runtime/datime.scm | 5 ++++-
 v7/src/runtime/debug.scm  | 5 +++--
 v7/src/runtime/emacs.scm  | 5 ++++-
 v7/src/runtime/equals.scm | 7 ++++---
 v7/src/runtime/error.scm  | 5 ++++-
 v7/src/runtime/events.scm | 5 ++++-
 v7/src/runtime/format.scm | 5 ++++-
 v7/src/runtime/gc.scm     | 5 +++--
 v7/src/runtime/gcstat.scm | 5 ++++-
 v7/src/runtime/gensym.scm | 5 ++++-
 v7/src/runtime/hash.scm   | 5 ++++-
 v7/src/runtime/histry.scm | 5 ++++-
 v7/src/runtime/input.scm  | 5 ++++-
 v7/src/runtime/intrpt.scm | 5 ++++-
 v7/src/runtime/io.scm     | 5 ++++-
 v7/src/runtime/lambda.scm | 5 ++++-
 v7/src/runtime/list.scm   | 7 ++++---
 v7/src/runtime/msort.scm  | 5 ++++-
 v7/src/runtime/numpar.scm | 5 +++--
 v7/src/runtime/output.scm | 7 ++++---
 v7/src/runtime/parse.scm  | 5 ++++-
 v7/src/runtime/pathnm.scm | 5 ++++-
 v7/src/runtime/pp.scm     | 5 ++++-
 v7/src/runtime/qsort.scm  | 5 ++++-
 v7/src/runtime/rep.scm    | 5 ++++-
 v7/src/runtime/scan.scm   | 5 ++++-
 v7/src/runtime/scode.scm  | 5 ++++-
 v7/src/runtime/scomb.scm  | 5 ++++-
 v7/src/runtime/sdata.scm  | 5 ++++-
 v7/src/runtime/sfile.scm  | 5 ++++-
 v7/src/runtime/stream.scm | 5 ++++-
 v7/src/runtime/string.scm | 5 ++++-
 v7/src/runtime/syntax.scm | 5 ++++-
 v7/src/runtime/sysclk.scm | 5 ++++-
 v7/src/runtime/system.scm | 5 ++++-
 v7/src/runtime/unpars.scm | 3 +++
 v7/src/runtime/unsyn.scm  | 5 ++++-
 v7/src/runtime/utabs.scm  | 5 ++++-
 v7/src/runtime/vector.scm | 5 ++++-
 v7/src/runtime/where.scm  | 5 ++++-
 v7/src/runtime/wind.scm   | 5 ++++-
 45 files changed, 176 insertions(+), 53 deletions(-)

diff --git a/v7/src/runtime/advice.scm b/v7/src/runtime/advice.scm
index 127025dcb..cde21047a 100644
--- a/v7/src/runtime/advice.scm
+++ b/v7/src/runtime/advice.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/advice.scm,v 13.41 1987/01/23 00:07:35 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -455,4 +457,5 @@
 
 (define *args*   (access *args* advice-package))
 (define *proc*   (access *proc* advice-package))
+(define *result* (access *result* advice-package))
 (define *result* (access *result* advice-package))
\ No newline at end of file
diff --git a/v7/src/runtime/bitstr.scm b/v7/src/runtime/bitstr.scm
index fb3127737..932b9ecdc 100644
--- a/v7/src/runtime/bitstr.scm
+++ b/v7/src/runtime/bitstr.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/bitstr.scm,v 13.41 1987/01/23 00:09:36 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -80,4 +82,5 @@
 	(nbits (bit-string-length bit-string)))
     (if (bit-string-ref bit-string (-1+ nbits))	;Sign bit.
 	(- unsigned-result (expt 2 nbits))
+	unsigned-result)))
 	unsigned-result)))
\ No newline at end of file
diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm
index ba1bd1798..557d7a38c 100644
--- a/v7/src/runtime/boot.scm
+++ b/v7/src/runtime/boot.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/boot.scm,v 13.41 1987/01/23 00:09:44 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -130,4 +132,5 @@
 
 (define (boolean? object)
   (or (eq? object #F)
+      (eq? object #T)))
       (eq? object #T)))
\ No newline at end of file
diff --git a/v7/src/runtime/char.scm b/v7/src/runtime/char.scm
index cf345fb7c..8aa052e70 100644
--- a/v7/src/runtime/char.scm
+++ b/v7/src/runtime/char.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/char.scm,v 13.41 1987/01/23 00:09:52 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -373,3 +375,4 @@
 (define char-alphanumeric? (char-set-predicate char-set:alphanumeric))
 (define char-graphic? (char-set-predicate char-set:graphic))
 (define char-standard? (char-set-predicate char-set:standard))
+(define char-whitespace? (char-set-predicate char-set:whitespace))
diff --git a/v7/src/runtime/datime.scm b/v7/src/runtime/datime.scm
index 87d4d09a4..5773e6587 100644
--- a/v7/src/runtime/datime.scm
+++ b/v7/src/runtime/datime.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/datime.scm,v 13.41 1987/01/23 00:11:08 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -115,3 +117,4 @@
 		     (if (< hour 12) "AM" "PM"))
       "Time primitives not installed")))
 
+)
diff --git a/v7/src/runtime/debug.scm b/v7/src/runtime/debug.scm
index a8ff6b61f..994400635 100644
--- a/v7/src/runtime/debug.scm
+++ b/v7/src/runtime/debug.scm
@@ -1,5 +1,7 @@
 ;;; -*-Scheme-*-
 ;;;
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 13.41 1987/01/23 00:11:14 jinx Exp $
+;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
@@ -37,8 +39,6 @@
 
 ;;;; Debugger
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/debug.scm,v 13.40 1987/01/21 21:37:09 jinx Exp $
-
 (in-package debugger-package
 (declare (usual-integrations))
 
@@ -543,4 +543,5 @@
 	       lambda-tag:make-environment
 	       lambda-tag:make-package)))
     (named-lambda (special-name? symbol)
+      (memq symbol the-special-names))))
       (memq symbol the-special-names))))
\ No newline at end of file
diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index ec6fb8932..efeb59ad4 100644
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 13.41 1987/01/23 00:11:34 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -161,4 +163,5 @@
 (install!)
 
 ;;; end EMACS-INTERFACE-PACKAGE
+))
 ))
\ No newline at end of file
diff --git a/v7/src/runtime/equals.scm b/v7/src/runtime/equals.scm
index e305ae21a..872c8ee32 100644
--- a/v7/src/runtime/equals.scm
+++ b/v7/src/runtime/equals.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/equals.scm,v 13.41 1987/01/23 00:11:42 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,8 +39,6 @@
 
 ;;;; Equality
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/equals.scm,v 13.40 1987/01/21 21:37:25 jinx Exp $
-
 (declare (usual-integrations))
 
 (let-syntax ((type?
@@ -86,3 +86,4 @@
 		  (bit-string=? x y))
 		 (else false)))))
 
+)
diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm
index 84e965a4f..96887dce8 100644
--- a/v7/src/runtime/error.scm
+++ b/v7/src/runtime/error.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 13.41 1987/01/23 00:11:50 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -468,4 +470,5 @@ using the current read-eval-print environment."))
   identity-procedure)
 
 ;;; end ERROR-SYSTEM package.
+))
 ))
\ No newline at end of file
diff --git a/v7/src/runtime/events.scm b/v7/src/runtime/events.scm
index 9623a098c..755652b0f 100644
--- a/v7/src/runtime/events.scm
+++ b/v7/src/runtime/events.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/events.scm,v 13.41 1987/01/23 00:12:11 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -95,4 +97,5 @@
 	(make-receiver-modifier 'REMOVE-EVENT-RECEIVER!
 	  delq!))
 
+)
 )
\ No newline at end of file
diff --git a/v7/src/runtime/format.scm b/v7/src/runtime/format.scm
index 1efb21d49..e1fb1057f 100644
--- a/v7/src/runtime/format.scm
+++ b/v7/src/runtime/format.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/format.scm,v 13.41 1987/01/23 00:12:19 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -352,4 +354,5 @@
 (add-dispatcher! #\C (format-wrapper format-code))
 
 ;;; end LET.
+)
 )
\ No newline at end of file
diff --git a/v7/src/runtime/gc.scm b/v7/src/runtime/gc.scm
index 4b8ffce1e..5ee0115d7 100644
--- a/v7/src/runtime/gc.scm
+++ b/v7/src/runtime/gc.scm
@@ -1,5 +1,7 @@
 ;;; -*-Scheme-*-
 ;;;
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gc.scm,v 13.41 1987/01/23 00:13:25 jinx Exp $
+;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
@@ -37,8 +39,6 @@
 
 ;;;; Garbage Collector
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gc.scm,v 13.40 1987/01/21 21:38:21 jinx Exp $
-
 (declare (usual-integrations)
 	 (compilable-primitive-functions
 	  garbage-collect primitive-purify primitive-impurify primitive-fasdump
@@ -200,3 +200,4 @@
 	ie)))))
 
 ;;; end GARBAGE-COLLECTOR-PACKAGE.
+))
diff --git a/v7/src/runtime/gcstat.scm b/v7/src/runtime/gcstat.scm
index 19339d4f2..520c84775 100644
--- a/v7/src/runtime/gcstat.scm
+++ b/v7/src/runtime/gcstat.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gcstat.scm,v 13.41 1987/01/23 00:13:34 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -267,4 +269,5 @@
 	     (write-string "%) free: ") (write heap-left)))
 	 (vector->list statistic)))
 
+)
 )
\ No newline at end of file
diff --git a/v7/src/runtime/gensym.scm b/v7/src/runtime/gensym.scm
index dde16adb5..a4ca4f2d6 100644
--- a/v7/src/runtime/gensym.scm
+++ b/v7/src/runtime/gensym.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1984 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/gensym.scm,v 13.41 1987/01/23 00:13:48 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -66,3 +68,4 @@
 		 (error "Bad argument: GENERATE-UNINTERNED-SYMBOL"
 			argument))))
       (string->uninterned-symbol
+       (string-append name-prefix (write-to-string (get-number)))))))
diff --git a/v7/src/runtime/hash.scm b/v7/src/runtime/hash.scm
index af77b13be..90dfaf6bb 100644
--- a/v7/src/runtime/hash.scm
+++ b/v7/src/runtime/hash.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/hash.scm,v 13.41 1987/01/23 00:14:04 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -267,3 +269,4 @@
 			 (loop (cdr rest)))))
 		  (else (loop (cdr rest))))))))
 
+)
diff --git a/v7/src/runtime/histry.scm b/v7/src/runtime/histry.scm
index 77a96e6dc..8be8a314b 100644
--- a/v7/src/runtime/histry.scm
+++ b/v7/src/runtime/histry.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/histry.scm,v 13.41 1987/01/23 00:14:15 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -252,4 +254,5 @@
 
 ;;; end HISTORY-PACKAGE.
 ))
+
 (the-environment)))
\ No newline at end of file
diff --git a/v7/src/runtime/input.scm b/v7/src/runtime/input.scm
index 1002ae865..5927db66e 100644
--- a/v7/src/runtime/input.scm
+++ b/v7/src/runtime/input.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/input.scm,v 13.41 1987/01/23 00:14:34 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -542,4 +544,5 @@
     (named-lambda (transcript-off)
       (if (not (photo-close))
 	  (error "Transcript file already closed: TRANSCRIPT-OFF"))
+      *the-non-printing-object*)))
       *the-non-printing-object*)))
\ No newline at end of file
diff --git a/v7/src/runtime/intrpt.scm b/v7/src/runtime/intrpt.scm
index fcac0b1cb..88173cda5 100644
--- a/v7/src/runtime/intrpt.scm
+++ b/v7/src/runtime/intrpt.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/intrpt.scm,v 13.41 1987/01/23 00:14:50 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -251,4 +253,5 @@
 			(vector-ref interrupt-vector CHARACTER-SLOT)))))))
 
 ;;; end INTERRUPT-SYSTEM package.
+))
 (the-environment)))
\ No newline at end of file
diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm
index f401a1dcb..2e660e492 100644
--- a/v7/src/runtime/io.scm
+++ b/v7/src/runtime/io.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/io.scm,v 13.41 1987/01/23 00:15:03 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -250,4 +252,5 @@
 
 ((access setup-files-vector primitive-io))
 (add-gc-daemon! (make-primitive-procedure 'CLOSE-LOST-OPEN-FILES))
+
 (add-gc-daemon! (access close-lost-open-files-daemon primitive-io))
\ No newline at end of file
diff --git a/v7/src/runtime/lambda.scm b/v7/src/runtime/lambda.scm
index 1afc10fa6..4f159b54e 100644
--- a/v7/src/runtime/lambda.scm
+++ b/v7/src/runtime/lambda.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/lambda.scm,v 13.41 1987/01/23 00:15:18 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -501,4 +503,5 @@
 			required
 			optional
 			(if (null? rest) rest (car rest))
+			body))))))
 			body))))))
\ No newline at end of file
diff --git a/v7/src/runtime/list.scm b/v7/src/runtime/list.scm
index 0c3c4136f..94fb4194a 100644
--- a/v7/src/runtime/list.scm
+++ b/v7/src/runtime/list.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/list.scm,v 13.41 1987/01/23 00:15:33 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,8 +39,6 @@
 
 ;;;; List Operations
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/list.scm,v 13.40 1987/01/21 21:39:50 jinx Exp $
-
 (declare (usual-integrations))
 
 ;;; This IN-PACKAGE is just a kludge to prevent the definitions of the
@@ -424,4 +424,5 @@
 	  (begin (loop l)
 		 l)
 	  '())
+      (error "EXCEPT-LAST-PAIR!: Argument not a list" l)))
       (error "EXCEPT-LAST-PAIR!: Argument not a list" l)))
\ No newline at end of file
diff --git a/v7/src/runtime/msort.scm b/v7/src/runtime/msort.scm
index 01c1523ee..a14d3e95a 100644
--- a/v7/src/runtime/msort.scm
+++ b/v7/src/runtime/msort.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/msort.scm,v 13.41 1987/01/23 00:15:59 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -97,3 +99,4 @@
   (let ((size (vector-length vector)))
     (do! vector (vector-cons size '()) 0 size)
     vector))
+|#
diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm
index 6fdc80873..f70ce5cad 100644
--- a/v7/src/runtime/numpar.scm
+++ b/v7/src/runtime/numpar.scm
@@ -1,5 +1,7 @@
 ;;; -*-Scheme-*-
 ;;;
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 13.41 1987/01/23 00:16:30 jinx Exp $
+;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
@@ -37,8 +39,6 @@
 
 ;;;; Number Parser
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 13.40 1987/01/21 21:40:27 jinx Exp $
-
 (declare (usual-integrations))
 
 (define string->number)
@@ -276,3 +276,4 @@
 	       (otherwise chars))))))
 
 ;;; end NUMBER-PARSER-PACKAGE
+))
diff --git a/v7/src/runtime/output.scm b/v7/src/runtime/output.scm
index 7f714c717..e66798cde 100644
--- a/v7/src/runtime/output.scm
+++ b/v7/src/runtime/output.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 13.41 1987/01/23 00:16:55 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -37,8 +39,6 @@
 
 ;;;; Output
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/output.scm,v 13.40 1987/01/21 21:40:41 jinx Exp $
-
 (declare (usual-integrations))
 
 ;;;; Output Ports
@@ -323,4 +323,5 @@
 
 (define (non-printing-object? object)
   (and (not (future? object))
+       (eq? object *the-non-printing-object*)))
 	((access :flush-output port))))))
\ No newline at end of file
diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index a1754ab7f..852a62c88 100644
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/parse.scm,v 13.41 1987/01/23 00:17:04 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -474,3 +476,4 @@
       (ptable-set! sub-table index entry)))))
 
 )
+
diff --git a/v7/src/runtime/pathnm.scm b/v7/src/runtime/pathnm.scm
index 20f000b48..a07ceb288 100644
--- a/v7/src/runtime/pathnm.scm
+++ b/v7/src/runtime/pathnm.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pathnm.scm,v 13.41 1987/01/23 00:17:26 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -441,3 +443,4 @@
 	(make-pathname (pathname-device pathname)
 		       (append (pathname-directory pathname)
 			       (list file))
+		       #F #F #F))))
diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index 178f9270d..8e0e65d2c 100644
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pp.scm,v 13.41 1987/01/23 00:17:46 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -462,4 +464,5 @@
 (define (pa procedure)
   (if (not (compound-procedure? procedure))
       (error "Must be a compound procedure" procedure))
+  (pp (unsyntax-lambda-list (procedure-lambda procedure))))
   (pp (unsyntax-lambda-list (procedure-lambda procedure))))
\ No newline at end of file
diff --git a/v7/src/runtime/qsort.scm b/v7/src/runtime/qsort.scm
index 2035caf04..51483a837 100644
--- a/v7/src/runtime/qsort.scm
+++ b/v7/src/runtime/qsort.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/qsort.scm,v 13.41 1987/01/23 00:18:12 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -90,3 +92,4 @@
       (if (vector? obj)
 	  (begin (sort-internal! obj 0 (-1+ (vector-length obj)))
 		 obj)
+	  (error "SORT! works on vectors only" obj)))))
diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index d7343faa0..da64ac220 100644
--- a/v7/src/runtime/rep.scm
+++ b/v7/src/runtime/rep.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 13.41 1987/01/23 00:18:26 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -326,4 +328,5 @@
       (history-reader rep-state-printer-history 'PRINTER-HISTORY))
 
 )
+
 )
\ No newline at end of file
diff --git a/v7/src/runtime/scan.scm b/v7/src/runtime/scan.scm
index fced825d9..9847bea7c 100644
--- a/v7/src/runtime/scan.scm
+++ b/v7/src/runtime/scan.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scan.scm,v 13.41 1987/01/23 00:18:56 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -208,3 +210,4 @@
 	    (&triple-third open-block))))
 
 ;;; end LET
+)
diff --git a/v7/src/runtime/scode.scm b/v7/src/runtime/scode.scm
index fa67d39cb..7d16071fc 100644
--- a/v7/src/runtime/scode.scm
+++ b/v7/src/runtime/scode.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scode.scm,v 13.41 1987/01/23 00:19:03 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -347,4 +349,5 @@
 
 (define (delay-components delay receiver)
   (receiver (delay-expression delay)))
+
   (receiver (delay-expression delay)))
\ No newline at end of file
diff --git a/v7/src/runtime/scomb.scm b/v7/src/runtime/scomb.scm
index bc1ec8f9c..eea5f0869 100644
--- a/v7/src/runtime/scomb.scm
+++ b/v7/src/runtime/scomb.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 13.41 1987/01/23 00:19:15 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -364,4 +366,5 @@
 
 (define unbound?-name unassigned?-name)
 (define unbound?-components unassigned?-components)
+
 (define unbound?-components unassigned?-components)
\ No newline at end of file
diff --git a/v7/src/runtime/sdata.scm b/v7/src/runtime/sdata.scm
index 4a4da77d9..5c318fd1d 100644
--- a/v7/src/runtime/sdata.scm
+++ b/v7/src/runtime/sdata.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1984 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/sdata.scm,v 13.41 1987/01/23 00:19:30 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -223,4 +225,5 @@
 			(car sublist))
 		    (loop (cdr sublist)))))))
 
+)
 )
\ No newline at end of file
diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index ddee383ca..638966419 100644
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/sfile.scm,v 13.41 1987/01/23 00:19:51 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -63,3 +65,4 @@
 	(if (eq? 'NEWEST (pathname-version pathname))
 	    (pathname-newest pathname)
 	    (p-file-exists?
+	     (pathname->string (pathname->absolute-pathname pathname))))))))
diff --git a/v7/src/runtime/stream.scm b/v7/src/runtime/stream.scm
index 1b32c1d2d..f00030a13 100644
--- a/v7/src/runtime/stream.scm
+++ b/v7/src/runtime/stream.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/stream.scm,v 13.41 1987/01/23 00:20:30 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -179,3 +181,4 @@
 				       (delay (tail s1))))))
 
 (define ((spread-tuple procedure) tuple)
+  (apply procedure tuple))
diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index aa4d8cc6e..93f2260ec 100644
--- a/v7/src/runtime/string.scm
+++ b/v7/src/runtime/string.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/string.scm,v 13.41 1987/01/23 00:20:37 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -419,3 +421,4 @@
 	      (substring-move-right! string 0 n result 0)
 	      (begin (substring-fill! result 0 i char)
 		     (substring-move-right! string 0 length result i)))
+	  result))))
diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index 433575b9e..a5a4f4c28 100644
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/Attic/syntax.scm,v 13.41 1987/01/23 00:21:11 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -1010,4 +1012,5 @@
 ;;; Edwin Variables:
 ;;; Scheme Environment: syntaxer-package
 ;;; End:
+
 )
\ No newline at end of file
diff --git a/v7/src/runtime/sysclk.scm b/v7/src/runtime/sysclk.scm
index 1e6f8901a..6dcd2aee2 100644
--- a/v7/src/runtime/sysclk.scm
+++ b/v7/src/runtime/sysclk.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1984 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/sysclk.scm,v 13.41 1987/01/23 00:21:27 jinx Rel $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -89,3 +91,4 @@
 		(wait-loop))))))
 
 ;;; end LET.
+)
diff --git a/v7/src/runtime/system.scm b/v7/src/runtime/system.scm
index bb5df299e..45e4df2a8 100644
--- a/v7/src/runtime/system.scm
+++ b/v7/src/runtime/system.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/system.scm,v 13.41 1987/01/23 00:21:32 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -252,4 +254,5 @@
 	  (else (beep) (query prompt)))))
 
 )
+
 )
\ No newline at end of file
diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 227beb7aa..f6184e955 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,5 +1,7 @@
 ;;; -*-Scheme-*-
 ;;;
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 13.41 1987/01/23 00:21:48 jinx Exp $
+;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
@@ -298,4 +300,5 @@
 
 ;;; end UNPARSER-PACKAGE.
 ))
+
 ))
\ No newline at end of file
diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index 7fd20ea4e..66b523a35 100644
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unsyn.scm,v 13.41 1987/01/23 00:21:55 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -492,4 +494,5 @@
     (,lambda-type ,unsyntax-LAMBDA-object))))
 
 ;;; end UNSYNTAXER-PACKAGE
+))
 ))
\ No newline at end of file
diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm
index 462883572..436d9e20e 100644
--- a/v7/src/runtime/utabs.scm
+++ b/v7/src/runtime/utabs.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 13.41 1987/01/23 00:22:10 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -323,4 +325,5 @@
 (snarf-version)
 
 ;;; end MICROCODE-SYSTEM.
+))
 ))
\ No newline at end of file
diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm
index 06852d963..18b3400d5 100644
--- a/v7/src/runtime/vector.scm
+++ b/v7/src/runtime/vector.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 13.41 1987/01/23 00:22:17 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -160,4 +162,5 @@
 (define (vector-fifth vector) (vector-ref vector 4))
 (define (vector-sixth vector) (vector-ref vector 5))
 (define (vector-seventh vector) (vector-ref vector 6))
+(define (vector-eighth vector) (vector-ref vector 7))
 (define (vector-eighth vector) (vector-ref vector 7))
\ No newline at end of file
diff --git a/v7/src/runtime/where.scm b/v7/src/runtime/where.scm
index 325c05596..d52192d48 100644
--- a/v7/src/runtime/where.scm
+++ b/v7/src/runtime/where.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1985 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/where.scm,v 13.41 1987/01/23 00:22:23 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -256,4 +258,5 @@
 ;;;; Exports
 
 (define where
+  (access where env-package debugger-package))
   (access where env-package debugger-package))
\ No newline at end of file
diff --git a/v7/src/runtime/wind.scm b/v7/src/runtime/wind.scm
index 86dcda803..d88e50fdc 100644
--- a/v7/src/runtime/wind.scm
+++ b/v7/src/runtime/wind.scm
@@ -1,6 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	Copyright (c) 1986 Massachusetts Institute of Technology
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/wind.scm,v 13.41 1987/01/23 00:22:29 jinx Exp $
+;;;
+;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -97,4 +99,5 @@
 	       (current-dynamic-state))
   (set-fixed-objects-vector! fov))
 
+
   (set-fixed-objects-vector! fov))
\ No newline at end of file
-- 
2.25.1