From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 24 Apr 2013 16:52:13 +0000 (-0700)
Subject: cref: one more place must allow #f for a package's parent.
X-Git-Tag: release-9.2.0~185
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5235ffa24eda41b3d04c0122df55226eb54fb38a;p=mit-scheme.git

cref: one more place must allow #f for a package's parent.
---

diff --git a/src/cref/redpkg.scm b/src/cref/redpkg.scm
index 2d8c2d4b1..cf5ce5f06 100644
--- a/src/cref/redpkg.scm
+++ b/src/cref/redpkg.scm
@@ -313,7 +313,9 @@ USA.
 		  (error "Ill-formed PARENT option:" option))
 	      (if (assq 'PARENT options)
 		  (error "Multiple PARENT options."))
-	      (values (parse-name (cadr option)) options))
+	      (values (and (cadr option)
+			   (parse-name (cadr option)))
+		      options))
 	    (values 'NONE options)))
     (let ((package (make-package-description name parent)))
       (process-package-options package options)