Using the already pruned list makes more sense here.

This commit is contained in:
Elf M. Sternberg 2016-09-21 14:17:28 -07:00
parent e4e4151587
commit 4827f0b047
1 changed files with 1 additions and 1 deletions

View File

@ -38,7 +38,7 @@
[exclude (reduce (fn [memo opt] (+ memo (if (> (len opt) 4) (get opt 4) []))) marked [])] [exclude (reduce (fn [memo opt] (+ memo (if (> (len opt) 4) (get opt 4) []))) marked [])]
[excluded (filter (fn [key] (in key exclude)) keys)] [excluded (filter (fn [key] (in key exclude)) keys)]
[cleaned (reduce (fn [memo key] [cleaned (reduce (fn [memo key]
(if (not (in key exclude)) (assoc memo key (get config key))) memo) keys {})]] (if (not (in key excluded)) (assoc memo key (get config key))) memo) keys {})]]
(, cleaned excluded))) (, cleaned excluded)))
(defclass hyopt [] (defclass hyopt []