From 66fbb5e3988a151b14a1db51d3e6ae595da643e3 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 5 Dec 2015 04:40:02 +1300 Subject: [PATCH] Fix create-process: it returns a transition --- prospect/core.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/prospect/core.rkt b/prospect/core.rkt index 5422784..4eabd2c 100644 --- a/prospect/core.rkt +++ b/prospect/core.rkt @@ -345,7 +345,7 @@ (define (create-process w behavior initial-transition) (if (not initial-transition) - w ;; Uh, ok + (transition w '()) ;; Uh, ok (let () (define-values (postprocess initial-actions) (match (clean-transition initial-transition) @@ -370,9 +370,8 @@ [behaviors (hash-set (world-behaviors w) new-pid behavior)])) - (w (enqueue-actions (postprocess w new-pid) new-pid remaining-initial-actions)) - (w (deliver-patches w patches meta-action))) - w)))) + (w (enqueue-actions (postprocess w new-pid) new-pid remaining-initial-actions))) + (deliver-patches w patches meta-action))))) (define (deliver-patches w patches meta-action) (transition (for/fold [(w w)] [(entry (in-list patches))]