Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Fix bug in let's handle-dot.

Browse Source
This commit is contained in:
gilch 2018-05-02 19:50:43 -06:00 committed by Kodi Arfer
parent 60c0f60a32
commit 049c78f5d5
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hy/contrib/walk.hy
View File

@ -136,12 +136,14 @@ Arguments without a header are under None.
:quote-level (+ self.quote-level x)))) :quote-level (+ self.quote-level x))))
(defn handle-dot [self] (defn handle-dot [self]
`(. ~@(walk (fn [form] `(. ~(self.expand-symbols (first (self.tail)))
~@(walk (fn [form]
(if (symbol? form) (if (symbol? form)
form ; don't expand attrs form ; don't expand attrs
(self.expand-symbols form))) (self.expand-symbols form)))
identity identity
(self.tail)))) (cut (self.tail)
1))))
(defn head [self] (defn head [self]
(first self.form)) (first self.form))

7
tests/native_tests/contrib/walk.hy
View File

@ -227,7 +227,12 @@
(setv foo (fn []) (setv foo (fn [])
foo.a 42) foo.a 42)
(let [a 1 (let [a 1
b []] b []
bar (fn [])]
(setv bar.a 13)
(assert (= bar.a 13))
(setv (. bar a) 14)
(assert (= bar.a 14))
(assert (= a 1)) (assert (= a 1))
(assert (= b [])) (assert (= b []))
;; method syntax not affected ;; method syntax not affected