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 fe17bcc9bfbae789c4da6d533c1d1d91917c02ee..738f4b1c57a27aebdac8c4a28f2dd2c835d3257e 100644 (file)
--- 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 44367330808fb4ee9d5529f3decd3ef808761e77..f22be5b8f7f36f87980c0b22750d27f4f64a02c3 100644 (file)
--- 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