From 55eee87934ab8d9e1fca5ae24b2b2463cc0d6030 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 10 Feb 2008 06:12:08 +0000
Subject: [PATCH] Add LAMBDA-TAG:UNNAMED, needed for cold load.
---
v7/src/sf/gconst.scm | 3 ++-
v7/src/sf/usicon.scm | 6 ++++--
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index 666fcc9ee..d5d0d4c27 100644
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: gconst.scm,v 4.39 2008/02/10 05:02:21 cph Exp $
+$Id: gconst.scm,v 4.40 2008/02/10 06:11:59 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -36,6 +36,7 @@ USA.
CHAR-INTEGER-LIMIT
CHAR:NEWLINE
FALSE
+ LAMBDA-TAG:UNNAMED ;needed for cold load
THE-EMPTY-STREAM
TRUE
UNDEFINED-CONDITIONAL-BRANCH
diff --git a/v7/src/sf/usicon.scm b/v7/src/sf/usicon.scm
index a2dad1850..10e194901 100644
--- a/v7/src/sf/usicon.scm
+++ b/v7/src/sf/usicon.scm
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Id: usicon.scm,v 4.12 2008/02/10 04:42:43 cph Exp $
+$Id: usicon.scm,v 4.13 2008/02/10 06:12:08 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -52,9 +52,11 @@ USA.
FALSE
FIXNUM
FLONUM
+ INTERNED-SYMBOL
RATNUM
RECNUM
- TRUE)))
+ TRUE
+ UNINTERNED-SYMBOL)))
(error "USUAL-INTEGRATIONS: not a constant" name))
(constant->integration-info object)))
usual-integrations/constant-names))
--
2.25.1