syndicate-lang
/
marketplace-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Avoid now-problematic TR contracts

This commit is contained in:
Tony Garnock-Jones 2014-01-20 21:08:03 -05:00
parent bd2f7b91ec
commit 4e88b46962
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
support/gui.rkt
View File

@ -271,12 +271,13 @@
(select-state-tab))))
(define (refresh-vm-display v)
(define procs (sort (hash->list (core:vm-processes v)) < #:key car))
;; (define procs (sort (hash->list (core:vm-processes v)) < #:key car))
(send vm-display clear)
(for [(entry (in-list procs))]
(match-define (cons pid wp) entry)
;;(wp (lambda (p) (displayln `(P ,p))))
(displayln (cons pid wp))))
;; (for [(entry (in-list procs))]
;; (match-define (cons pid wp) entry)
;; ;;(wp (lambda (p) (displayln `(P ,p))))
;; (displayln (cons pid wp)))
)
(define (select-state-tab)
(define selection (send state-panel get-selection))