split scribble/manual module into smaller modules

svn: r12150 original commit: ea659ba286
2008-10-28 01:40:51 +00:00 · 2008-10-28 01:40:51 +00:00 · 25ac110c4f
commit 25ac110c4f
parent 8b1b6eec7f
1 changed files with 2 additions and 1 deletions
--- a/collects/compiler/zo-parse.ss
+++ b/collects/compiler/zo-parse.ss
@ -544,7 +544,8 @@
                                            (if kind 'marked 'normal)
                                            set-id
                                            (map (lambda (u)
-                                                   (let ([just-phase? (number? (cddr u))])
+                                                   (let ([just-phase? (let ([v (cddr u)])
+                                                                        (or (number? v) (not v)))])
                                                     (let-values ([(exns prefix)
                                                                   (if just-phase?
                                                                       (values null #f)