www

commit e39f2d9d8cda93b305ce967adde10ad314ff3c07
parent 2f17ec529ae9413db8f6d381352f0cda102a684f
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri,  5 Sep 2014 09:39:53 -0600

make site: fix for SRC_CATALOG mode

In SRC_CATALOG mode, there's not a separate "native" directory.

original commit: f885d98d60317784dbe2458058ec1f375df5341b

Diffstat:
M
pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt b/pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt
@@ -86,7 +86,8 @@
          (newline o))))))
 
 (build-catalog built-dir)
-(build-catalog native-dir)
+(when (directory-exists? native-dir)
+  (build-catalog native-dir))
 (let ([l (directory-list (build-path dest-dir catalog-dir "pkg"))])
   ;; Write list of packages:
   (define sl (map path-element->string l))