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

svn: r166

Browse Source
This commit is contained in:
Jono Spiro 2004-08-09 19:20:28 +00:00
parent ec363fe731
commit c65e299e5c
2 changed files with 29 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mztake/make-clean.bat Normal file
View File

@ -0,0 +1,2 @@
del compiled
del private\compiled

55
collects/mztake/make-plt.ss
View File

@ -1,28 +1,27 @@
(module make-plt mzscheme (module make-plt mzscheme
(require (lib "pack.ss" "setup") (require (lib "pack.ss" "setup")
#;(lib "util.ss" "planet")) #;(lib "util.ss" "planet"))
(define (my-filter path) (define (my-filter path)
(and (std-filter path) (and (std-filter path)
(not (or (regexp-match #rx".svn$" path) (not (or (regexp-match #rx".svn$" path)
(regexp-match #rx".bak$" path) (regexp-match #rx".bak$" path)
(regexp-match #rx".1$" path) (regexp-match #rx".1$" path)
(regexp-match #rx"make" path))))) (regexp-match #rx"make" path)))))
;For use with PLaneT ;For use with PLaneT
#;(parameterize ((current-directory ".")) #;(parameterize ((current-directory "."))
(pack "mztake-planet.plt" (pack "mztake-planet.plt"
"MzTake Debugger" "MzTake Debugger"
'(".") '(".")
'() '()
my-filter my-filter
#t #t
'file 'file
#f #f
#f #f
'(("frtime") ("stepper")))) '(("frtime") ("stepper"))))
; for use not on PLaneT ; for use not on PLaneT
(pack-collections "frtime-distro.plt" "FrTime Language" '(("frtime")) #f '() std-filter) (pack-collections "mztake-distro.plt" "MzTake Debugger" '(("mztake")("frtime")) #t '(("stepper")) my-filter #f))
(pack-collections "mztake-distro.plt" "MzTake Debugger" '(("mztake")) #t '(("frtime") ("stepper")) my-filter))