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

Add explicit checks for HyList

Browse Source
This commit is contained in:
Kodi Arfer 2019-08-02 17:09:13 -04:00
parent dce0e10f3f
commit 52c0e4e221
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hy/contrib/hy_repr.hy
View File

@ -144,7 +144,7 @@
(hy-repr (dict x))))) (hy-repr (dict x)))))
(for [[types fmt] (partition [ (for [[types fmt] (partition [
list "[...]" [list HyList] "[...]"
[set HySet] "#{...}" [set HySet] "#{...}"
frozenset "(frozenset #{...})" frozenset "(frozenset #{...})"
dict-keys "(dict-keys [...])" dict-keys "(dict-keys [...])"

2
hy/core/macros.hy
View File

@ -201,7 +201,7 @@ Such 'o!' params are available within `body` as the equivalent 'g!' symbol."
(defn extract-o!-sym [arg] (defn extract-o!-sym [arg]
(cond [(and (symbol? arg) (.startswith arg "o!")) (cond [(and (symbol? arg) (.startswith arg "o!"))
arg] arg]
[(and (list? arg) (.startswith (first arg) "o!")) [(and (instance? HyList arg) (.startswith (first arg) "o!"))
(first arg)])) (first arg)]))
(setv os (list (filter identity (map extract-o!-sym args))) (setv os (list (filter identity (map extract-o!-sym args)))
gs (lfor s os (HySymbol (+ "g!" (cut s 2))))) gs (lfor s os (HySymbol (+ "g!" (cut s 2)))))