carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

core: add additional custom comparator to for

Browse Source
This commit is contained in:
hellerve 2020-02-13 16:02:49 +01:00
parent ae22172338
commit c89d79b359
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/Macros.carp
View File

@ -143,12 +143,15 @@
(let [variable (car settings)
from (cadr settings)
to (caddr settings)
step (if (= (length settings) 4) (cadddr settings) 1)
step (if (> (length settings) 3) (cadddr settings) 1)
comp (if (> (length settings) 4)
(cadddr (cdr settings))
(if (< step (- step step)) '> '<))
]
(list
'let (array variable from)
(list
'while (list (if (< step (- step step)) '> '<) variable to)
'while (list comp variable to)
(list
'do
(if (= (length body) 0)