suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

formatting

Browse Source 
svn: r9792
This commit is contained in:
Eli Barzilay 2008-05-10 07:50:13 +00:00
parent 652f1285c9
commit 87375f0c85
1 changed files with 29 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
collects/setup/option-unit.ss
View File

@ -1,38 +1,35 @@
#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@
(import)
(export setup-option^)
(provide setup:option@) (define verbose (make-parameter #f))
(define make-verbose (make-parameter #f))
(define compiler-verbose (make-parameter #f))
(define clean (make-parameter #f))
(define compile-mode (make-parameter #f))
(define make-zo (make-parameter #t))
(define make-launchers (make-parameter #t))
(define make-info-domain (make-parameter #t))
(define make-docs (make-parameter #t))
(define make-user (make-parameter #t))
(define make-planet (make-parameter #t))
(define call-install (make-parameter #t))
(define call-post-install (make-parameter #t))
(define pause-on-errors (make-parameter #f))
(define force-unpacks (make-parameter #f))
(define doc-pdf-dest (make-parameter #f))
(define-unit setup:option@ (define specific-collections (make-parameter null))
(import) (define specific-planet-dirs (make-parameter null))
(export setup-option^)
(define verbose (make-parameter #f)) (define archives (make-parameter null))
(define make-verbose (make-parameter #f))
(define compiler-verbose (make-parameter #f))
(define clean (make-parameter #f))
(define compile-mode (make-parameter #f))
(define make-zo (make-parameter #t))
(define make-launchers (make-parameter #t))
(define make-info-domain (make-parameter #t))
(define make-docs (make-parameter #t))
(define make-user (make-parameter #t))
(define make-planet (make-parameter #t))
(define call-install (make-parameter #t))
(define call-post-install (make-parameter #t))
(define pause-on-errors (make-parameter #f))
(define force-unpacks (make-parameter #f))
(define doc-pdf-dest (make-parameter #f))
(define specific-collections (make-parameter null))
(define specific-planet-dirs (make-parameter null))
(define archives (make-parameter null)) (define current-target-directory-getter (make-parameter current-directory))
(define current-target-plt-directory-getter
(define current-target-directory-getter (make-parameter current-directory)) (make-parameter
(define current-target-plt-directory-getter (lambda (preferred main-collects-parent-dir choices) preferred))))
(make-parameter
(lambda (preferred main-collects-parent-dir choices) preferred)))))