diff --git a/lib/loop.klambda b/lib/loop.klambda index 37a012f..8df308d 100644 --- a/lib/loop.klambda +++ b/lib/loop.klambda @@ -1,7 +1,7 @@ DEFINE:loop:(defun loop\ (all\ statement\ - (cond (= $1 (- $2 1))\ + (cond (= $1 $2)\ $1\ (loop (+ $1 1) $2))))\ (loop start end)\ diff --git a/test.klambda b/test.klambda index f6dc97d..d1bd6d0 100644 --- a/test.klambda +++ b/test.klambda @@ -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")) (def moeblob ("moe" "moe~" "kyun!!")) -:loop:0:(length moeblob):(spit (at $1 moeblob)) +loop:0:(length moeblob):(spit (at $1 moeblob)) (thesis) \ No newline at end of file