diff --git a/minimart/core.rkt b/minimart/core.rkt index 739829a..d78ea23 100644 --- a/minimart/core.rkt +++ b/minimart/core.rkt @@ -118,7 +118,7 @@ (define (trigger-guard-process p) (match-define (process _ b s) p) - (struct-copy process p [behavior trigger-guard-handle] [state (trigger-guard (gestalt-empty) b s)])) + (struct-copy process p [behavior trigger-guard-handle] [state (trigger-guard #f b s)])) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; World implementation