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

Merge to v5.0
2010-05-25 09:04:14 -06:00 · 2010-05-25 09:04:14 -06:00 · e8fe67991e
commit e8fe67991e
parent 85b59a2f4c
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