From b65291e789ec455d8e0aeb2abd1c5fb36a96c730 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 15 May 2016 06:11:04 -0400 Subject: [PATCH] Remove obsolete clean-patch function. --- racket/syndicate/broker/server.rkt | 6 ------ 1 file changed, 6 deletions(-) diff --git a/racket/syndicate/broker/server.rkt b/racket/syndicate/broker/server.rkt index 9010792..f45361e 100644 --- a/racket/syndicate/broker/server.rkt +++ b/racket/syndicate/broker/server.rkt @@ -107,12 +107,6 @@ (list (pattern->trie #t (at-meta ?)) (pattern->trie #t (observe (at-meta ?)))))) -(define (clean-patch p) - ;; TODO: this is gross. Linkage shouldn't be visible, and there - ;; should be some clean way of getting rid of observe(atMeta(...)) - ;; and so on. - (patch-without-linkage (patch-pruned-by p stuff-to-prune))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (module+ main