From c13cbf448f2d2d5db2e18c9646f52168c5cdcd35 Mon Sep 17 00:00:00 2001 From: Patrick Mahoney Date: Fri, 17 Aug 2012 15:30:10 -0400 Subject: [PATCH] Add the helper to begin developing frtime --- collects/frtime/develop-frtime.rkt | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 collects/frtime/develop-frtime.rkt diff --git a/collects/frtime/develop-frtime.rkt b/collects/frtime/develop-frtime.rkt new file mode 100644 index 0000000000..7071a1b590 --- /dev/null +++ b/collects/frtime/develop-frtime.rkt @@ -0,0 +1,29 @@ +#lang racket + (require setup/link) + + + #|Update this to point to your racket installation directory|# + (define install-path "C:/Program Files/Racket/collects/frtime") + + #|Update this to point to your github clone|# + (define dev-path "C:/Users/user/Documents/GitHub/racket/collects/frtime") + + #|Then call one of these functions to begin developing frtime, or to halt development.|# + (define start-developing-frtime + (lambda () + (start-developing-collection dev-path install-path))) + + + (define stop-developing-frtime + (lambda () + (stop-developing-collection dev-path install-path))) + + (define start-developing-collection + (lambda (dev-coll-path install-coll-path) + (links install-coll-path #:remove? #t) + (links dev-coll-path))) + + (define stop-developing-collection + (lambda (dev-coll-path install-coll-path) + (start-developing-collection install-coll-path dev-coll-path))) + \ No newline at end of file