(not (< n n))

sigh...

diff --git a/src/builtins/arithmetic.c b/src/builtins/arithmetic.c
index c13a0dc896fafaac1ccda0d8a6e00d6071527d14..1fb7f60d7278bf1517b6e69dc830f78d9bf48fcd 100644 (file)
--- a/src/builtins/arithmetic.c
+++ b/src/builtins/arithmetic.c
@@ -152,7 +152,7 @@ Sexpr* a_mod(Sexpr* b, Sexpr* rest, Sexpr* env) {
                sexpr_free(b);
                sexpr_free(i);
                sexpr_free(j);
-               return cons(m > n ? from_nil(): from_t(), rest);
+               return cons(m < n ? from_t(): from_nil(), rest);
 }
 
 Sexpr* a_lt(Sexpr* b, Sexpr* rest, Sexpr* env) {
@@ -176,7 +176,7 @@ Sexpr* a_lt(Sexpr* b, Sexpr* rest, Sexpr* env) {
                sexpr_free(b);
                sexpr_free(i);
                sexpr_free(j);
-               return cons(m < n ? from_nil() : from_t(), rest);
+               return cons(m > n ? from_t() : from_nil(), rest);
 }