Fix silly mistakes
This commit is contained in:
parent
469f18503b
commit
a916a6c194
|
@ -1,6 +1,7 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
;; Gestalts: representations of (replicated) state.
|
;; Gestalts: representations of (replicated) state.
|
||||||
|
|
||||||
|
(require racket/set)
|
||||||
(require racket/match)
|
(require racket/match)
|
||||||
|
|
||||||
(require "route.rkt")
|
(require "route.rkt")
|
||||||
|
@ -88,10 +89,10 @@
|
||||||
(gestalt (xu (gestalt-metalevels g))))
|
(gestalt (xu (gestalt-metalevels g))))
|
||||||
|
|
||||||
(define (strip-gestalt-label 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)
|
(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))))))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue