fix mod error

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 {

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" <

src/ludus.janet

@@ -56,14 +56,5 @@
 # (comment
 (do
 (-> (ludus `
-penup! ()
+doc! (mod)
-let s = turtle_state ()
-pendown! ()
-forward! (100)
-rt! (0.25)
-fd! (100)
-load_turtle_state! (s)
-pendown! ()
-lt! (0.25)
-fd! (50)
 `)))