From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Jun 1987 20:59:23 +0000 (+0000)
Subject: New primitive `return-address-block'.
X-Git-Tag: 20090517-FFI~13419
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=186fd5305506e66fc8ad903205bc284f8a15b68a;p=mit-scheme.git

New primitive `return-address-block'.
Alias `return-code' for `return-address'.
---

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index e9df1f149..cbaac97d9 100644
--- 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.31 1987/05/31 16:35:22 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.32 1987/06/03 20:59:23 cph Exp $
 
 (declare (usual-integrations))
 
@@ -109,7 +109,7 @@
 	       TRUE					;08
 	       EXTENDED-PROCEDURE			;09		
 	       VECTOR					;0A
-	       RETURN-ADDRESS	       			;0B
+	       (RETURN-CODE RETURN-ADDRESS)		;0B
 	       COMBINATION-2				;0C
 	       COMPILED-PROCEDURE 	       		;0D
 	       (BIGNUM BIG-FIXNUM)			;0E
@@ -509,7 +509,7 @@
 	       DEBUGGING-PRINTER			;$B2
 	       STRING-UPCASE     			;$B3
 	       PRIMITIVE-PURIFY				;$B4
-	       #F					;$B5
+	       RETURN-ADDRESS-BLOCK			;$B5
 	       COMPLETE-GARBAGE-COLLECT			;$B6
 	       DUMP-BAND				;$B7
 	       SUBSTRING-SEARCH				;$B8
@@ -863,4 +863,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.31 1987/05/31 16:35:22 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.32 1987/06/03 20:59:23 cph Exp $"
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 9563b4e68..1b56d15a3 100644
--- 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.31 1987/05/31 16:35:22 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.32 1987/06/03 20:59:23 cph Exp $
 
 (declare (usual-integrations))
 
@@ -109,7 +109,7 @@
 	       TRUE					;08
 	       EXTENDED-PROCEDURE			;09		
 	       VECTOR					;0A
-	       RETURN-ADDRESS	       			;0B
+	       (RETURN-CODE RETURN-ADDRESS)		;0B
 	       COMBINATION-2				;0C
 	       COMPILED-PROCEDURE 	       		;0D
 	       (BIGNUM BIG-FIXNUM)			;0E
@@ -509,7 +509,7 @@
 	       DEBUGGING-PRINTER			;$B2
 	       STRING-UPCASE     			;$B3
 	       PRIMITIVE-PURIFY				;$B4
-	       #F					;$B5
+	       RETURN-ADDRESS-BLOCK			;$B5
 	       COMPLETE-GARBAGE-COLLECT			;$B6
 	       DUMP-BAND				;$B7
 	       SUBSTRING-SEARCH				;$B8
@@ -863,4 +863,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.31 1987/05/31 16:35:22 cph Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.32 1987/06/03 20:59:23 cph Exp $"