From e8fc8db20289f2de5c8ee6c1bb6d799d25ce2e5a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 20 Feb 2014 00:47:35 -0800 Subject: [PATCH] updatep --- main.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/main.rkt b/main.rkt index e877dbf..8e7839c 100644 --- a/main.rkt +++ b/main.rkt @@ -22,7 +22,8 @@ ;; Build 'inner-here-path and 'inner-here (define inner-here-path (get-here-path)) (require (only-in racket/path find-relative-path)) - (define inner-here (path->string (path-replace-suffix (find-relative-path (current-directory) inner-here-path) ""))) + (require (only-in pollen/world PROJECT_ROOT)) + (define inner-here (path->string (path-replace-suffix (find-relative-path PROJECT_ROOT inner-here-path) ""))) (provide (all-defined-out))