From a916a6c194196f0ca80389cf111bf9e9e100350d Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 8 May 2014 19:40:23 -0400 Subject: [PATCH] Fix silly mistakes --- minimart/gestalt.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/minimart/gestalt.rkt b/minimart/gestalt.rkt index 3e1f506..e439937 100644 --- a/minimart/gestalt.rkt +++ b/minimart/gestalt.rkt @@ -1,6 +1,7 @@ #lang racket/base ;; Gestalts: representations of (replicated) state. +(require racket/set) (require racket/match) (require "route.rkt") @@ -88,10 +89,10 @@ (gestalt (xu (gestalt-metalevels g)))) (define (strip-gestalt-label g) - (gestalt-matcher-transform (lambda (m) (matcher-relabel m (lambda (old) (set #t)))))) + (gestalt-matcher-transform g (lambda (m) (matcher-relabel m (lambda (old) (set #t)))))) (define (label-gestalt g pid) - (gestalt-matcher-transform (lambda (m) (matcher-relabel m (lambda (old) (set pid)))))) + (gestalt-matcher-transform g (lambda (m) (matcher-relabel m (lambda (old) (set pid)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;