From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 29 Jan 1994 01:47:26 +0000 (+0000)
Subject: FIRST cannot be integrated as a constant because it is not a primitive.
X-Git-Tag: 20090517-FFI~7317
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c5d36fca3b001cfab32aec7f2e4cc3df57f9aee7;p=mit-scheme.git

FIRST cannot be integrated as a constant because it is not a primitive.
It must be expanded.
---

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index fe17bcc9b..738f4b1c5 100644
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: gconst.scm,v 4.18 1994/01/28 04:07:52 gjr Exp $
+$Id: gconst.scm,v 4.19 1994/01/29 01:47:26 gjr Exp $
 
 Copyright (c) 1987-1994 Massachusetts Institute of Technology
 
@@ -89,7 +89,6 @@ MIT in each case. |#
     ERROR-PROCEDURE
     FALSE
     FALSE?
-    FIRST
     FIX:*
     FIX:+
     FIX:-
diff --git a/v7/src/sf/usiexp.scm b/v7/src/sf/usiexp.scm
index 443673308..f22be5b8f 100644
--- a/v7/src/sf/usiexp.scm
+++ b/v7/src/sf/usiexp.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: usiexp.scm,v 4.31 1993/12/22 14:59:09 adams Exp $
+$Id: usiexp.scm,v 4.32 1994/01/29 01:47:20 gjr Exp $
 
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -442,6 +442,7 @@ MIT in each case. |#
 (define cdddar-expansion (general-car-cdr-expansion #b10001))
 (define cddddr-expansion (general-car-cdr-expansion #b10000))
 
+(define first-expansion (general-car-cdr-expansion #b11))
 (define second-expansion  cadr-expansion)
 (define third-expansion   caddr-expansion)
 (define fourth-expansion  cadddr-expansion)
@@ -601,6 +602,7 @@ MIT in each case. |#
     exact-rational?
     expt
     fifth
+    first
     fix:<=
     fix:=
     fix:>=
@@ -684,6 +686,7 @@ MIT in each case. |#
    exact-rational?-expansion
    expt-expansion
    fifth-expansion
+   first-expansion
    fix:<=-expansion
    fix:=-expansion
    fix:>=-expansion