Compare commits

..

No commits in common. "92a1ee9010effa71c0bf652cd1c465ad395405c3" and "8c8f555d83d29eaa05f865e4b35dc758c3b6951a" have entirely different histories.

5 changed files with 15 additions and 12 deletions

4
package-lock.json generated
View File

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

View File

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

View File

@ -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 {

View File

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

View File

@ -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)
`)))