From cb2930eafe5e399a5ca8f14dcfff32e1d42b2726 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 22 Nov 2020 19:47:21 -0800 Subject: [PATCH] adjust --- pollen/private/ts.rktd | 2 +- pollen/setup.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index c573b3a..8447a32 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1606102497 +1606103241 diff --git a/pollen/setup.rkt b/pollen/setup.rkt index 5d3fae3..e03d223 100644 --- a/pollen/setup.rkt +++ b/pollen/setup.rkt @@ -24,10 +24,10 @@ [(not maybe-dir) (current-directory)] [(directory-exists? maybe-dir) maybe-dir] [else (define dir (dirname maybe-dir)) - (and (not (eq? 'relative dir)) (simple-form-path dir (current-directory)))])) + (and (not (eq? 'relative dir)) (simplify-path (path->complete-path dir (current-directory))))])) (let loop ([dir starting-dir][path default-directory-require]) (and dir ; dir is #f when it hits the top of the filesystem - (let ([simplified-path (simple-form-path (path->complete-path path starting-dir))]) + (let ([simplified-path (simplify-path (path->complete-path path starting-dir))]) (if (file-exists? simplified-path) simplified-path (loop (dirname dir) (build-path 'up path)))))))