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

Make first and rest fns instead of macros

Browse Source 
car and cdr are still macros, but I'd recommend either making them
fns or removing them.
This commit is contained in:
Clinton N. Dreisbach 2014-01-10 13:35:21 -05:00
parent 5017e3c211
commit 849244f3b4
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hy/core/language.hy
View File

@ -149,6 +149,10 @@
(setv f (get (.stack inspect) (+ n 1) 0))
(get f.f_globals "__name__"))
(defn first [coll]
"Return first item from `coll`"
(get coll 0))
(defn inc [n]
"Increment n by 1"
(_numeric-check n)
@ -239,6 +243,10 @@
(if (not (pred val))
(yield val)))))
(defn rest [coll]
"Get all the elements of a coll, except the first."
(slice coll 1))
(defn repeat [x &optional n]
"Yield x forever or optionally n times"
(if (none? n)
@ -298,9 +306,9 @@
(_numeric_check n)
(= n 0))
(def *exports* '[calling-module-name cycle dec distinct disassemble drop
drop-while empty? even? filter flatten float? gensym
inc instance? integer integer? iterable? iterate
(def *exports* '[calling-module-name cycle dec distinct disassemble
drop drop-while empty? even? filter first flatten float?
gensym inc instance? integer integer? iterable? iterate
iterator? macroexpand macroexpand-1 neg? nil? none?
nth numeric? odd? pos? remove repeat repeatedly second
string string? take take-nth take-while zero?])
nth numeric? odd? pos? remove repeat repeatedly rest
second string string? take take-nth take-while zero?])

4
hy/core/macros.hy
View File

@ -70,12 +70,12 @@
`(do ~@body)))
(defmacro-alias [car first] [thing]
(defmacro car [thing]
"Get the first element of a list/cons"
`(get ~thing 0))
(defmacro-alias [cdr rest] [thing]
(defmacro cdr [thing]
"Get all the elements of a thing, except the first"
`(slice ~thing 1))