fix problem using both #:doc and #:tag-prefixes for secref

Merge to v5.0 original commit: e8fe67991eaa4660273847419d6d886a8ccd94c2
2010-05-25 09:04:14 -06:00 · 2010-05-25 09:04:14 -06:00 · 37b41675c1
commit 37b41675c1
parent 1abd3aa39e 291101390a b81e27d601
1 changed files with 3 additions and 1 deletions
--- a/collects/scribble/base.rkt
+++ b/collects/scribble/base.rkt
@ -226,7 +226,9 @@
  (case-lambda
   [(doc s)
    (if doc
-        (list (module-path-prefix->string doc) s) 
+        (if (list? s)
+            (cons (module-path-prefix->string doc) s)
+            (list (module-path-prefix->string doc) s))
        s)]
   [(doc prefix s)
    (doc-prefix doc (if prefix