gestalt-intersect is probably not useful as an API

(original commit adapted to naive-routing setting)

minimart/core.rkt

@@ -20,7 +20,7 @@
 	 gestalt-empty
 	 gestalt-empty?
 	 gestalt-union
-	 gestalt-intersect
+	 gestalt-filter
 	 pretty-print-matcher
 	 pretty-print-gestalt
 	 spawn
@@ -82,7 +82,7 @@
 	      (flatten g)))
 
 (define (gestalt-union . gs) (flatten gs))
-(define (gestalt-intersect g1 g2) (intersect-routes (flatten g1) (flatten g2)))
+(define (gestalt-filter g1 g2) (intersect-routes (flatten g1) (flatten g2)))
 (define (gestalt-empty) '())
 (define (gestalt-empty? g) (null? g))
 
@@ -311,4 +311,4 @@
     [(message body meta-level feedback?)
      (enqueue-event (message body (+ meta-level 1) feedback?) w)]))
 
-(define routing-implementation 'naive)
+(define routing-implementation 'naive)

minimart/examples/example-lang.rkt

@@ -34,7 +34,7 @@
      (printf "REF:")
      (pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
      (printf "INTERSECTED:\n")
-     (pretty-print-gestalt (gestalt-intersect g (sub (set-timer ? ? ?))))
+     (pretty-print-gestalt (gestalt-filter g (pub (set-timer ? ? ?) #:level 1)))
      #f]
     [(message (timer-expired 'tick now) _ _)
      (printf "TICK ~v\n" now)

minimart/examples/example-plain.rkt

@@ -30,7 +30,7 @@
      (printf "REF:")
      (pretty-print-matcher (gestalt-ref g 0 0 #f) #:indent 4)
      (printf "INTERSECTED:\n")
-     (pretty-print-gestalt (gestalt-intersect g (sub (set-timer ? ? ?))))
+     (pretty-print-gestalt (gestalt-filter g (pub (set-timer ? ? ?) #:level 1)))
      #f]
     [(message (timer-expired 'tick now) _ _)
      (printf "TICK ~v\n" now)