formatting
svn: r9792
This commit is contained in:
parent
652f1285c9
commit
87375f0c85
|
@ -1,12 +1,9 @@
|
||||||
|
#lang scheme/base
|
||||||
|
(require scheme/unit "option-sig.ss")
|
||||||
|
|
||||||
(module option-unit mzscheme
|
(provide setup:option@)
|
||||||
(require mzlib/unit)
|
|
||||||
|
|
||||||
(require "option-sig.ss")
|
(define-unit setup:option@
|
||||||
|
|
||||||
(provide setup:option@)
|
|
||||||
|
|
||||||
(define-unit setup:option@
|
|
||||||
(import)
|
(import)
|
||||||
(export setup-option^)
|
(export setup-option^)
|
||||||
|
|
||||||
|
@ -35,4 +32,4 @@
|
||||||
(define current-target-directory-getter (make-parameter current-directory))
|
(define current-target-directory-getter (make-parameter current-directory))
|
||||||
(define current-target-plt-directory-getter
|
(define current-target-plt-directory-getter
|
||||||
(make-parameter
|
(make-parameter
|
||||||
(lambda (preferred main-collects-parent-dir choices) preferred)))))
|
(lambda (preferred main-collects-parent-dir choices) preferred))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user