diff options
Diffstat (limited to 'stdlib/arith-each.tl')
| -rw-r--r-- | stdlib/arith-each.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/arith-each.tl b/stdlib/arith-each.tl index d28362e2..3b1ab87b 100644 --- a/stdlib/arith-each.tl +++ b/stdlib/arith-each.tl @@ -31,7 +31,7 @@ (whenlet ((bad (find-if [notf consp] vars))) (compile-error form "~s isn't a var-initform pair" bad))) -(defmacro sys:arith-each (:form f fn iv short-circ vars . body) +(defmacro sys:arith-each (fn iv short-circ vars . body) (let* ((gens (mapcar (ret (gensym)) vars)) (syms [mapcar car vars]) (accum (gensym))) |