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

trie-step*

This commit is contained in:
Tony Garnock-Jones 2016-05-15 06:10:31 -04:00
parent e55e19d5e4
commit ee120022a4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/syndicate/trie.rkt
View File

@ -52,6 +52,7 @@
;; trie-prune-branch
trie-step
trie-step*
projection->pattern
projection-arity
@ -663,6 +664,10 @@
(rlookup-sigma m (canonicalize key))]
[(_ _) trie-empty]))
;; Trie (Listof (U OpenParenthesis Sigma)) -> Trie
(define (trie-step* t keys)
(foldl (lambda (key t) (trie-step t key)) t keys))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Projection