Split #f and ().

diff --git a/v7/src/compiler/rtlgen/opncod.scm b/v7/src/compiler/rtlgen/opncod.scm
index 947be4fa06ad6016433c96be035c9c484a9ad596..f25ee6397564a1a6fcc60fcdc51929005f19e2d6 100644 (file)
--- a/v7/src/compiler/rtlgen/opncod.scm
+++ b/v7/src/compiler/rtlgen/opncod.scm
@@ -1,8 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: opncod.scm,v 4.72 2003/02/14 18:28:08 cph Exp $
+$Id: opncod.scm,v 4.73 2004/12/06 21:33:30 cph Exp $
 
-Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
+Copyright 1987,1988,1989,1990,1991,1992 Massachusetts Institute of Technology
+Copyright 1993,1997,1998,2001,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -629,7 +630,7 @@ USA.
   (simple-open-coder
    (lambda (combination expressions finish)
      combination
-     (finish (rtl:make-false-test (car expressions))))
+     (finish (rtl:make-eq-test (car expressions) (rtl:make-constant '()))))
    '(0)
    false))
 

diff --git a/v7/src/microcode/const.h b/v7/src/microcode/const.h
index 3e2dbdc4fe51445aef49e04d3703593fe994c806..4ac15eccb41631b1e90bf38826ae64424ee00553 100644 (file)
--- a/v7/src/microcode/const.h
+++ b/v7/src/microcode/const.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: const.h,v 9.51 2004/11/21 04:16:56 cph Exp $
+$Id: const.h,v 9.52 2004/12/06 21:32:46 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1997,2000,2002,2004 Massachusetts Institute of Technology
@@ -45,16 +45,17 @@ USA.
    6 #!eof
    7 #!default
    8 #!aux
+   9 '()
  */
 
 #define SHARP_F                        MAKE_OBJECT (TC_NULL, 0)
 #define SHARP_T                        MAKE_OBJECT (TC_CONSTANT, 0)
 #define UNSPECIFIC             MAKE_OBJECT (TC_CONSTANT, 1)
 #define DEFAULT_OBJECT         MAKE_OBJECT (TC_CONSTANT, 7)
+#define EMPTY_LIST             MAKE_OBJECT (TC_CONSTANT, 9)
 #define FIXNUM_ZERO            MAKE_OBJECT (TC_FIXNUM, 0)
 #define BROKEN_HEART_ZERO      MAKE_OBJECT (TC_BROKEN_HEART, 0)
 
-#define EMPTY_LIST SHARP_F
 #define EMPTY_LIST_P(object) ((object) == EMPTY_LIST)
 \f
 /* Assorted sizes used in various places */