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