From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Nov 2004 04:16:56 +0000 (+0000)
Subject: Create new predicate EMPTY_LIST_P.
X-Git-Tag: 20090517-FFI~1452
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6795fd363a282d8b6836a294687b4c14892e0715;p=mit-scheme.git

Create new predicate EMPTY_LIST_P.
---

diff --git a/v7/src/microcode/const.h b/v7/src/microcode/const.h
index a1262cc3f..3e2dbdc4f 100644
--- a/v7/src/microcode/const.h
+++ b/v7/src/microcode/const.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: const.h,v 9.50 2004/11/19 04:18:17 cph Exp $
+$Id: const.h,v 9.51 2004/11/21 04:16:56 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1997,2000,2002,2004 Massachusetts Institute of Technology
@@ -44,6 +44,7 @@ USA.
    5 #!key
    6 #!eof
    7 #!default
+   8 #!aux
  */
 
 #define SHARP_F			MAKE_OBJECT (TC_NULL, 0)
@@ -54,6 +55,7 @@ USA.
 #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 */