fix offbyone in loop macro

master
cynic 3 years ago
parent 2ae4658151
commit fa30ec1f34
  1. 2
      lib/loop.klambda
  2. 2
      test.klambda

@ -1,7 +1,7 @@
DEFINE:loop:(defun loop\ DEFINE:loop:(defun loop\
(all\ (all\
statement\ statement\
(cond (= $1 (- $2 1))\ (cond (= $1 $2)\
$1\ $1\
(loop (+ $1 1) $2))))\ (loop (+ $1 1) $2))))\
(loop start end)\ (loop start end)\

@ -18,6 +18,6 @@ INCLUDE:./lib/aids.klambda
loop:0:100:(spit (cond (% $1 15) (cond (% $1 5) (cond (% $1 3) $1 "fizz") "buzz") "fizzbuzz")) loop:0:100:(spit (cond (% $1 15) (cond (% $1 5) (cond (% $1 3) $1 "fizz") "buzz") "fizzbuzz"))
(def moeblob ("moe" "moe~" "kyun!!")) (def moeblob ("moe" "moe~" "kyun!!"))
:loop:0:(length moeblob):(spit (at $1 moeblob)) loop:0:(length moeblob):(spit (at $1 moeblob))
(thesis) (thesis)
Loading…
Cancel
Save