Fixed anononymous function rule -- fixes #29

This commit is contained in:
Jonas Enlund 2012-04-02 22:09:17 +03:00
parent d483dae7aa
commit 65095fc3b5

View file

@ -25,7 +25,8 @@
[(logic/== expr (list 'fn* args (logic/llist fun args)))])
(logic/pred fun #(or (keyword? %)
(and (symbol? %)
(not= \. (first (str %))))))))
(not= \. (first (str %)))
(not (some #{\/} (str %))))))))
#(logic/== % fun)])
;; do
@ -83,7 +84,11 @@
(map (fn [x] (.method x)) [1 2 3])
(map #(dec %) [1 2 3])
(map #(.method %) [1 2 3])
(map #(Double/parseDouble %) [1 2 3])
(map (fn [x] (Integer/parseInteger x))
[1 2 3])
(map (fn [m] (:key m)) [some maps])
(map (fn [m] (:key m alt)) [a b c])