From f885d98d60317784dbe2458058ec1f375df5341b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 5 Sep 2014 09:39:53 -0600 Subject: [PATCH] make site: fix for SRC_CATALOG mode In SRC_CATALOG mode, there's not a separate "native" directory. --- 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 index 6d7fa7b111..93ea397837 100644 --- 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))