fixed bug that crashed multi-part html doc generation in unusual circumstances

svn: r9638
This commit is contained in:
Jacob Matthews 2008-05-04 07:15:28 +00:00
parent d8ee46457d
commit 464154f147

View File

@ -964,8 +964,8 @@
(define/override (get-suffix) #"")
(define/override (get-dest-directory)
(or (build-path (or (super get-dest-directory) (current-directory))
(current-subdirectory))
(or (and (current-subdirectory)
(build-path (or (super get-dest-directory) (current-directory)) (current-subdirectory)))
(super get-dest-directory)))
(define/override (derive-filename d)