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

#%mrepdkernel problem is fixed -- I now make namespaces with (make-namespace-with-mred).

Browse Source 
svn: r120
This commit is contained in:
Jono Spiro 2004-07-30 21:08:06 +00:00
parent f7b735a997
commit 437da77c98
4 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mztake/debugger-model.ss
View File

@ -3,7 +3,6 @@
(lib "mred.ss" "mred") (lib "mred.ss" "mred")
(lib "debugger-annotate.ss" "stepper/private") (lib "debugger-annotate.ss" "stepper/private")
(lib "marks.ss" "stepper/private") (lib "marks.ss" "stepper/private")
(lib "list.ss")
"mztake-structs.ss" "mztake-structs.ss"
"private/load-annotator.ss" "private/load-annotator.ss"
"private/more-useful-code.ss") "private/more-useful-code.ss")
@ -69,6 +68,6 @@
[main-mod (first all-used-module-paths)]) [main-mod (first all-used-module-paths)])
(parameterize ([current-custodian (debug-process-custodian process)] (parameterize ([current-custodian (debug-process-custodian process)]
[current-namespace (make-namespace)] [current-namespace (make-namespace-with-mred)]
[error-display-handler (err-display-handler (format "Loading module ~a..." main-mod))]) [error-display-handler (err-display-handler (format "Loading module ~a..." main-mod))])
(require/annotations `(file ,main-mod) annotate-module? annotator)))))))) (require/annotations `(file ,main-mod) annotate-module? annotator))))))))

3
collects/mztake/mztake-structs.ss
View File

@ -1,6 +1,5 @@
(module mztake-structs mzscheme (module mztake-structs mzscheme
(require (lib "mred.ss" "mred") (require (prefix frp: (lib "frp.ss" "frtime"))
(prefix frp: (lib "frp.ss" "frtime"))
"private/more-useful-code.ss") "private/more-useful-code.ss")
(provide (all-defined)) (provide (all-defined))

16
collects/mztake/mztake.ss
View File

@ -1,5 +1,18 @@
#| TODO #| TODO
breaks dont pause at a client -- they just send a ping when they get hit -- if you want to pause you should say ((when-e breakpoint) . -=> . (pause p)); maybe take a thunk to do when the breakpoint is hit?
make syntax errors work for invalid bindings ... take the syntax when the binding is made and save it in a hashtable
provide set-running! again
---------LOAD ANNOTATOR BUGS::::::::::::::
;catch oops exception
;catch the other two exceptions that my loaders throw
;detect if the source code for a certain module is missing and throw an error
;do I want to parameterize it over a given namespace?
::::::::::::::::::::::::::::::::::::::::::
offer a way to install a special handler for exceptions -- somehow identify which client an exceptions comes from offer a way to install a special handler for exceptions -- somehow identify which client an exceptions comes from
CONTRACT ALL SCRIPT FUNCTIONS CONTRACT ALL SCRIPT FUNCTIONS
@ -113,8 +126,6 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(module mztake mzscheme (module mztake mzscheme
(require (lib "match.ss") (require (lib "match.ss")
(lib "unit.ss") (lib "unit.ss")
(lib "contract.ss")
(lib "stx.ss" "syntax")
(lib "marks.ss" "stepper/private") (lib "marks.ss" "stepper/private")
(prefix frp: (lib "frp.ss" "frtime")) (prefix frp: (lib "frp.ss" "frtime"))
"private/useful-code.ss" "private/useful-code.ss"
@ -271,7 +282,6 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(define (trace->frp-event client event trace) (define (trace->frp-event client event trace)
(match trace (match trace
[($ break-trace evnt-rcvr) [($ break-trace evnt-rcvr)
#;(pause client)
(list evnt-rcvr #t)] (list evnt-rcvr #t)]
[($ bind-trace evnt-rcvr variable-to-bind) [($ bind-trace evnt-rcvr variable-to-bind)

5
collects/mztake/private/load-annotator.ss
View File

@ -1,8 +1,3 @@
;catch oops exception
;catch the other two exceptions that my loaders throw
;detect if the source code for a certain module is missing and throw an error
;do I want to parameterize it over a given namespace?
(module load-annotator mzscheme (module load-annotator mzscheme
(require (lib "moddep.ss" "syntax") (require (lib "moddep.ss" "syntax")