From 92a1ee9010effa71c0bf652cd1c465ad395405c3 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Fri, 7 Jun 2024 17:25:46 -0400
Subject: [PATCH] fix `mod` error

---
 prelude.ld      |  2 +-
 src/base.janet  |  8 +++++++-
 src/ludus.janet | 11 +----------
 3 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/prelude.ld b/prelude.ld
index c05b897..584f960 100644
--- a/prelude.ld
+++ b/prelude.ld
@@ -879,7 +879,7 @@ fn atan/2 {
 
 fn mod {
 	"Returns the modulus of num and div. Truncates towards negative infinity."
-	(num as :number, y as :number) -> base :mod (num, div)
+	(num as :number, div as :number) -> base :mod (num, div)
 }
 
 fn square {
diff --git a/src/base.janet b/src/base.janet
index 76b6185..c48b195 100644
--- a/src/base.janet
+++ b/src/base.janet
@@ -221,6 +221,12 @@
 
 (defn store! [b x] (set (b :^value) x))
 
+(defn mod [x y] 
+(print "mod!")
+(pp x)
+(pp y)
+(% x y))
+
 (def ctx {
   "print!" print!
   "prn" prn
@@ -232,7 +238,7 @@
   "sub" -
   "mult" *
   "div" /
-  "mod" %
+  "mod" mod
   "gt" >
   "gte" >=
   "lt" <
diff --git a/src/ludus.janet b/src/ludus.janet
index e74c2e6..428fd41 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -56,14 +56,5 @@
 # (comment
 (do
 (-> (ludus `
-penup! ()
-let s = turtle_state ()
-pendown! ()
-forward! (100)
-rt! (0.25)
-fd! (100)
-load_turtle_state! (s)
-pendown! ()
-lt! (0.25)
-fd! (50)
+doc! (mod)
 `)))