diff --git a/collects/mztake/debugger-model.ss b/collects/mztake/debugger-model.ss index cebb35454c..3b4ef522ad 100644 --- a/collects/mztake/debugger-model.ss +++ b/collects/mztake/debugger-model.ss @@ -3,7 +3,6 @@ (lib "mred.ss" "mred") (lib "debugger-annotate.ss" "stepper/private") (lib "marks.ss" "stepper/private") - (lib "list.ss") "mztake-structs.ss" "private/load-annotator.ss" "private/more-useful-code.ss") @@ -69,6 +68,6 @@ [main-mod (first all-used-module-paths)]) (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))]) (require/annotations `(file ,main-mod) annotate-module? annotator)))))))) \ No newline at end of file diff --git a/collects/mztake/mztake-structs.ss b/collects/mztake/mztake-structs.ss index b9f047cf1d..72ad4a1938 100644 --- a/collects/mztake/mztake-structs.ss +++ b/collects/mztake/mztake-structs.ss @@ -1,6 +1,5 @@ (module mztake-structs mzscheme - (require (lib "mred.ss" "mred") - (prefix frp: (lib "frp.ss" "frtime")) + (require (prefix frp: (lib "frp.ss" "frtime")) "private/more-useful-code.ss") (provide (all-defined)) diff --git a/collects/mztake/mztake.ss b/collects/mztake/mztake.ss index 1a21b29e3b..7561d25281 100644 --- a/collects/mztake/mztake.ss +++ b/collects/mztake/mztake.ss @@ -1,5 +1,18 @@ #| 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 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 (require (lib "match.ss") (lib "unit.ss") - (lib "contract.ss") - (lib "stx.ss" "syntax") (lib "marks.ss" "stepper/private") (prefix frp: (lib "frp.ss" "frtime")) "private/useful-code.ss" @@ -271,8 +282,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2) (define (trace->frp-event client event trace) (match trace [($ break-trace evnt-rcvr) - #;(pause client) - (list evnt-rcvr #t)] + (list evnt-rcvr #t)] [($ bind-trace evnt-rcvr variable-to-bind) (let* ([vars (if (list? variable-to-bind) variable-to-bind @@ -509,7 +519,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2) (syntax-rules () [(_ client line col binding-symbol) (with-handlers ([(lambda (exn) #t) - (lambda (exn) (raise-syntax-error 'trace/bind exn ))]) + (lambda (exn) (raise-syntax-error 'trace/bind exn))]) (let ([trace-hash (debug-client-tracepoints client)] [trace (create-bind-trace binding-symbol)] [pos ((debug-client-line-col->pos client) line col)]) diff --git a/collects/mztake/private/load-annotator.ss b/collects/mztake/private/load-annotator.ss index 1fd29b6d4e..c1cf6a104d 100644 --- a/collects/mztake/private/load-annotator.ss +++ b/collects/mztake/private/load-annotator.ss @@ -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 (require (lib "moddep.ss" "syntax")