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

svn: r172

Browse Source
This commit is contained in:
Jono Spiro 2004-08-10 02:39:11 +00:00
parent 1cccb1f00d
commit 86647b01eb
2 changed files with 20 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mztake/doc.txt
View File

@ -453,7 +453,6 @@ MzTake defines a few functions on time-varying values
that are particularly useful when debugging:
> (history-e stream)
> (history-b stream)
Keeps a complete history of all the values seen
@ -462,7 +461,6 @@ that are particularly useful when debugging:
Use with BINDs: (history-b x-trace)
> (history-e n stream)
> (history-b n stream)
Keeps a list of the last n values of a behavior

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

@ -1,20 +1,20 @@
(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"-uncommented.ss$" path)
(regexp-match #rx"make" path)))))
;without frtime bundled:
(pack-collections "mztake-frtime-distro.plt" "MzTake Debugger"
'(("mztake")) #t '(("frtime")("stepper")) my-filter #f)
(pack-collections "mztake-distro.plt" "MzTake Debugger"
'(("mztake")("frtime")) #t '(("stepper")) my-filter #f))
(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"-uncommented.ss$" path)
(regexp-match #rx"make" path)))))
;without frtime bundled:
(pack-collections "mztake-distro.plt" "MzTake Debugger"
'(("mztake")) #t '(("frtime")("stepper")) my-filter #f)
(pack-collections "mztake-frtime-distro.plt" "MzTake Debugger"
'(("mztake")("frtime")) #t '(("stepper")) my-filter #f))