svn: r9888

original commit: b23eae36548d78173d78780abdb7267535cbf0d4
This commit is contained in:
Eli Barzilay 2008-05-19 13:18:05 +00:00
parent 537dc77d15
commit fff6b33b03

View File

@ -1787,10 +1787,7 @@
(provide elemtag elemref)
(define (doc-prefix doc s)
(if doc
(list (module-path-prefix->string doc)
s)
s))
(if doc (list (module-path-prefix->string doc) s) s))
(define (secref s #:underline? [u? #t] #:doc [doc #f])
(make-link-element (if u? #f "plainlink") null `(part ,(doc-prefix doc s))))