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 08c7540c622d336c9943afae7862e42bf23c1c61..2ed8aef238565c57f2b91026a289b289e96e8f13 100644 (file)
--- 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)