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