package-lock.json

@@ -1,12 +1,12 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.11",
+  "version": "0.1.10",
   "lockfileVersion": 3,
   "requires": true,
   "packages": {
     "": {
       "name": "@ludus/ludus-js-pure",
-      "version": "0.1.11",
+      "version": "0.1.10",
       "license": "GPL-3.0",
       "devDependencies": {
         "shadow-cljs": "^2.26.0",

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.11",
+  "version": "0.1.10",
   "description": "A Ludus interpreter in a pure JS function.",
   "type": "module",
   "main": "build/ludus.mjs",

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, div as :number) -> base :mod (num, div)
+	(num as :number, y as :number) -> base :mod (num, div)
 }
 
 fn square {

src/base.janet

@@ -221,12 +221,6 @@
 
 (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
@@ -238,7 +232,7 @@
   "sub" -
   "mult" *
   "div" /
-  "mod" mod
+  "mod" %
   "gt" >
   "gte" >=
   "lt" <

src/ludus.janet

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