From: Elijah Cohen <eli@eli173.com>
Date: Wed, 25 Dec 2024 01:14:44 +0000 (-0800)
Subject: (not (< n n))
X-Git-Tag: v-12.13.13~5
X-Git-Url: https://git.eli173.com/?a=commitdiff_plain;h=ddda118314ab5ed4a21522bd2f3806d82f40031a;p=klapaucius

(not (< n n))

sigh...
---

diff --git a/src/builtins/arithmetic.c b/src/builtins/arithmetic.c
index c13a0dc..1fb7f60 100644
--- 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);
 }