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

svn: r126

Browse Source
This commit is contained in:
Jono Spiro 2004-08-03 19:20:47 +00:00
parent fa9459d08d
commit 17d72dcfe6
1 changed files with 607 additions and 602 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mztake/mztake.ss
View File

@ -1,5 +1,7 @@
#| TODO #| TODO
implies that the first client created is always the main module
turn script errors into syntax errors turn script errors into syntax errors
make sure that the main client for a process is in the list of clients being annotated make sure that the main client for a process is in the list of clients being annotated
@ -137,9 +139,7 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(debug-process? . -> . frp:behavior?)] (debug-process? . -> . frp:behavior?)]
;; process:running? ; disabled until it works ;; process:running? ; disabled until it works
)
;TODO HACK!
[set-debug-process-main-client! (debug-process? debug-client? . -> . void?)])
; ; ; ; ; ; ; ;
; ;;;;;; ; ; ; ; ; ; ;;;;;; ; ; ; ; ;
@ -516,6 +516,11 @@ Find a way to bind to the result of ananonymous expression: here->(add1 2)
(set-debug-process-clients! process (set-debug-process-clients! process
(append (list client) (debug-process-clients process))) (append (list client) (debug-process-clients process)))
; set the main module if it has not been set
; this implies that the first client created is always the main module
(when (null? (debug-process-main-client process))
(set-debug-process-main-client! process client))
client)))) client))))