* Delete `with-threaded-continuation' primitive.

* Implement `get-interrupt-enables' primitive.

* Split `primitive-type' and friends into two classes: one which is
gc-safe and touches arguments, the other non-safe with no touching.

* Implement primitive-procedure name aliasing in microcode.  This
allows microcode name changes to reuse existing bands.

* Do not use "-q" ld switch.  This causes lossage when Scheme is
loaded over NFS.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index 66375b2ba9922f0ecb1f4ddcdc8a3ccac3f26765..db45a90a417824ca73bc4d554595e43965bcda9a 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $
 
 (declare (usual-integrations))
 
@@ -566,8 +566,9 @@
               FLONUM-EXPONENT-LENGTH           ;07
               OS-NAME-STRING                   ;08
               OS-VARIANT-STRING                ;09
+              STACK-TYPE-STRING                ;0A
               ))
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $"
\ No newline at end of file

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 52c85e9f487b883669b1b4f19f199bd2490c17de..772ddf583d0d14a1d3c66516ef40a186d9974e8f 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $
 
 (declare (usual-integrations))
 
@@ -566,8 +566,9 @@
               FLONUM-EXPONENT-LENGTH           ;07
               OS-NAME-STRING                   ;08
               OS-VARIANT-STRING                ;09
+              STACK-TYPE-STRING                ;0A
               ))
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.43 1988/03/12 16:08:08 jinx Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.44 1988/03/24 07:55:27 cph Rel $"
\ No newline at end of file