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

Shadow get (#1344)

Browse Source
This commit is contained in:
Kodi Arfer 2017-07-26 19:10:54 -07:00 committed by Ryan Gonzalez
parent 0a14410911
commit 67a4815024
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
NEWS
View File

@ -12,6 +12,7 @@ Changes from 0.13.0
as necessary, so you can write ``(eval `(+ 1 ~n))`` instead of as necessary, so you can write ``(eval `(+ 1 ~n))`` instead of
``(eval `(+ 1 ~(HyInteger n)))`` ``(eval `(+ 1 ~(HyInteger n)))``
* Literal `Inf`s and `NaN`s must now be capitalized like that * Literal `Inf`s and `NaN`s must now be capitalized like that
* `get` is available as a function
[ Bug Fixes ] [ Bug Fixes ]
* Numeric literals are no longer parsed as symbols when followed by a dot * Numeric literals are no longer parsed as symbols when followed by a dot

9
hy/core/shadow.hy
View File

@ -138,11 +138,18 @@
(defn not-in [x y] (defn not-in [x y]
(not-in x y)) (not-in x y))
(defn get [coll key1 &rest keys]
(setv coll (get coll key1))
(for* [k keys]
(setv coll (get coll k)))
coll)
(setv *exports* [ (setv *exports* [
'+ '- '* '** '/ '// '% '@ '+ '- '* '** '/ '// '% '@
'<< '>> '& '| '^ '~ '<< '>> '& '| '^ '~
'< '> '<= '>= '= '!= '< '> '<= '>= '= '!=
'and 'or 'not 'and 'or 'not
'is 'is-not 'in 'not-in]) 'is 'is-not 'in 'not-in
'get])
(if (not PY35) (if (not PY35)
(.remove *exports* '@)) (.remove *exports* '@))

8
tests/native_tests/operators.hy
View File

@ -288,3 +288,11 @@
(assert (is (f 3 [1 2]) (!= f-name "in"))) (assert (is (f 3 [1 2]) (!= f-name "in")))
(assert (is (f 2 [1 2]) (= f-name "in"))) (assert (is (f 2 [1 2]) (= f-name "in")))
(forbid (f 2 [1 2] [3 4]))) (forbid (f 2 [1 2] [3 4])))
(op-and-shadow-test [get]
(forbid (f))
(forbid (f "hello"))
(assert (= (f "hello" 1) "e"))
(assert (= (f [[1 2 3] [4 5 6] [7 8 9]] 1 2) 6))
(assert (= (f {"x" {"y" {"z" 12}}} "x" "y" "z") 12)))