diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index de65aa5..9250e45 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1615271301 +1615272320 diff --git a/pollen/setup.rkt b/pollen/setup.rkt index fb78596..7683c88 100644 --- a/pollen/setup.rkt +++ b/pollen/setup.rkt @@ -19,7 +19,8 @@ (let-values ([(dir name dir?) (split-path path)]) dir)) -(define (get-path-to-override maybe-dir) +(provide find-nearest-default-directory-require) +(define (find-nearest-default-directory-require maybe-dir) (define starting-dir (cond [(not maybe-dir) (current-directory)] [(directory-exists? maybe-dir) maybe-dir] @@ -50,7 +51,7 @@ ;; exn:fail:contract? is raised if setup submodule doesn't exist ;; in which case we use the default value. ;; but if something else is amiss, we want to let it bubble up - (define setup-module-path (get-path-to-override dir)) + (define setup-module-path (find-nearest-default-directory-require dir)) (with-handlers ([exn:fail:contract? (λ (exn) DEFAULT-NAME)] ;; a syntax error in pollen.rkt will arrive here ;; exn:fail:read? for a syntactic failure (e.g., missing paren)