Avoid now-problematic TR contracts
This commit is contained in:
parent
bd2f7b91ec
commit
4e88b46962
|
@ -271,12 +271,13 @@
|
||||||
(select-state-tab))))
|
(select-state-tab))))
|
||||||
|
|
||||||
(define (refresh-vm-display v)
|
(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)
|
(send vm-display clear)
|
||||||
(for [(entry (in-list procs))]
|
;; (for [(entry (in-list procs))]
|
||||||
(match-define (cons pid wp) entry)
|
;; (match-define (cons pid wp) entry)
|
||||||
;;(wp (lambda (p) (displayln `(P ,p))))
|
;; ;;(wp (lambda (p) (displayln `(P ,p))))
|
||||||
(displayln (cons pid wp))))
|
;; (displayln (cons pid wp)))
|
||||||
|
)
|
||||||
|
|
||||||
(define (select-state-tab)
|
(define (select-state-tab)
|
||||||
(define selection (send state-panel get-selection))
|
(define selection (send state-panel get-selection))
|
||||||
|
|
Loading…
Reference in New Issue