Using the already pruned list makes more sense here.
This commit is contained in:
parent
e4e4151587
commit
4827f0b047
|
@ -38,7 +38,7 @@
|
|||
[exclude (reduce (fn [memo opt] (+ memo (if (> (len opt) 4) (get opt 4) []))) marked [])]
|
||||
[excluded (filter (fn [key] (in key exclude)) keys)]
|
||||
[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)))
|
||||
|
||||
(defclass hyopt []
|
||||
|
|
Loading…
Reference in New Issue