From ce8852492a09be17bb9181a71c7068090e39c8e2 Mon Sep 17 00:00:00 2001 From: Jacob Matthews Date: Sun, 4 May 2008 07:15:28 +0000 Subject: [PATCH] fixed bug that crashed multi-part html doc generation in unusual circumstances svn: r9638 original commit: 464154f1474bcb820c1af4723afba4d0ec938c4e --- collects/scribble/html-render.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss index 0b99d796..5a5bd336 100644 --- a/collects/scribble/html-render.ss +++ b/collects/scribble/html-render.ss @@ -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)