From f326286d7888016a05c33b2f7a30f2ce698029fb Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Dec 2004 21:33:30 +0000
Subject: [PATCH] Split #f and ().

---
 v7/src/compiler/rtlgen/opncod.scm | 7 ++++---
 v7/src/microcode/const.h          | 5 +++--
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/v7/src/compiler/rtlgen/opncod.scm b/v7/src/compiler/rtlgen/opncod.scm
index 947be4fa0..f25ee6397 100644
--- 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 3e2dbdc4f..4ac15eccb 100644
--- 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)
 
 /* Assorted sizes used in various places */
-- 
2.25.1