9 lines
227 B
Scheme
9 lines
227 B
Scheme
#lang scheme/base
|
|
|
|
(require setup/dirs "tree.ss")
|
|
|
|
(define (get-plt-tree)
|
|
(when absolute-installation?
|
|
(error 'get-plt-tree "must be used from a relative installation"))
|
|
(get-tree (build-path (find-collects-dir) 'up)))
|