current-ground-transition, for debugging
This commit is contained in:
parent
7bb49752f4
commit
cca7971b55
9
os2.rkt
9
os2.rkt
|
@ -58,7 +58,10 @@
|
||||||
non-wild?
|
non-wild?
|
||||||
|
|
||||||
;; Reexports from racket/match for convenience
|
;; Reexports from racket/match for convenience
|
||||||
(all-from-out racket/match))
|
(all-from-out racket/match)
|
||||||
|
|
||||||
|
;; For debugging
|
||||||
|
current-ground-transition)
|
||||||
|
|
||||||
;; Endpoints are the units of deduplication.
|
;; Endpoints are the units of deduplication.
|
||||||
;; Flows (in canonical form) are the units of presence.
|
;; Flows (in canonical form) are the units of presence.
|
||||||
|
@ -551,7 +554,7 @@
|
||||||
|
|
||||||
(define (ground-vm boot)
|
(define (ground-vm boot)
|
||||||
(let loop ((state (make-vm 'ground-vm boot)))
|
(let loop ((state (make-vm 'ground-vm boot)))
|
||||||
(match (run-vm state)
|
(match (let ((t (run-vm state))) (set! current-ground-transition t) t)
|
||||||
[(transition state actions)
|
[(transition state actions)
|
||||||
(define is-blocking?
|
(define is-blocking?
|
||||||
(match actions
|
(match actions
|
||||||
|
@ -578,3 +581,5 @@
|
||||||
(wrap-evt always-evt (lambda (dummy) values)))
|
(wrap-evt always-evt (lambda (dummy) values)))
|
||||||
active-events)))
|
active-events)))
|
||||||
(loop (interruptk state))))])))
|
(loop (interruptk state))))])))
|
||||||
|
|
||||||
|
(define current-ground-transition #f)
|
Loading…
Reference in New Issue