From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 May 2007 03:45:22 +0000 (+0000)
Subject: A couple of tweaks so that CREF/PACKAGE-FILES doesn't generate errors.
X-Git-Tag: 20090517-FFI~573
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=92f7d07d7af563e208b57456a39886c2bb32bb5e;p=mit-scheme.git

A couple of tweaks so that CREF/PACKAGE-FILES doesn't generate errors.
---

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)