From 92f7d07d7af563e208b57456a39886c2bb32bb5e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 May 2007 03:45:22 +0000
Subject: [PATCH] A couple of tweaks so that CREF/PACKAGE-FILES doesn't
 generate errors.

---
 v7/src/cref/redpkg.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/v7/src/cref/redpkg.scm b/v7/src/cref/redpkg.scm
index 08c7540c6..2ed8aef23 100644
--- a/v7/src/cref/redpkg.scm
+++ b/v7/src/cref/redpkg.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: redpkg.scm,v 1.32 2007/04/29 19:48:08 cph Exp $
+$Id: redpkg.scm,v 1.33 2007/05/10 03:45:22 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -453,12 +453,13 @@ USA.
 		   root-package
 		   (or (name->package packages name)
 		       (name->package extra-packages name)
-		       (if intern?
-			   (let ((package (make-package name 'UNKNOWN)))
-			     (set! extra-packages
-				   (cons package extra-packages))
-			     package)
-			   (error "Unknown package name:" name)))))))
+		       (begin
+			 (if (not intern?)
+			     (warn "Unknown package name:" name))
+			 (let ((package (make-package name 'UNKNOWN)))
+			   (set! extra-packages
+				 (cons package extra-packages))
+			   package)))))))
 	;; GLOBALS is a list of the bindings supplied externally.
 	(for-each (lambda (global)
 		    (if (cdr global)
-- 
2.25.1