syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix silly mistakes

This commit is contained in:
Tony Garnock-Jones 2014-05-08 19:40:23 -04:00
parent 469f18503b
commit a916a6c194
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
minimart/gestalt.rkt
View File

@ -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))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;