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
implies that the first client created is always the main module
turn script errors into syntax errors
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?)]
;; 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
(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))))