From cd603530539710ffd25cfb6343c0a74ef8f94e6c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 15 May 2016 07:01:32 -0400 Subject: [PATCH] Remove obsolete definition. --- racket/syndicate/broker/server.rkt | 5 ----- 1 file changed, 5 deletions(-) diff --git a/racket/syndicate/broker/server.rkt b/racket/syndicate/broker/server.rkt index 72e167a..aab6f62 100644 --- a/racket/syndicate/broker/server.rkt +++ b/racket/syndicate/broker/server.rkt @@ -106,11 +106,6 @@ (define (wrap-trie* scope t) (pattern->trie #t (broker-data scope (embedded-trie t)))) -(define stuff-to-prune - (trie-union-all #:combiner (lambda (v1 v2) (trie-success #t)) - (list (pattern->trie #t (at-meta ?)) - (pattern->trie #t (observe (at-meta ?)))))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (module+ main