package-lock.json

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

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.3",
+  "version": "0.1.1",
   "description": "A Ludus interpreter in a pure JS function.",
   "main": "target/js/ludus.js",
   "type": "module",
@@ -8,9 +8,7 @@
   "keywords": [],
   "author": "Scott Richmond",
   "license": "GPL-3.0",
-  "files": [
-    "target/js/*"
-  ],
+  "files": ["target/js/*"],
   "devDependencies": {
     "shadow-cljs": "^2.26.0",
     "tap": "^18.6.1"

src/ludus/prelude.ld

@@ -369,7 +369,7 @@ fn sub {
 	(x as :number) -> x
 	(x as :number, y as :number) -> base :sub (x, y)
 	(x, y, ...zs) -> fold (base :sub, zs, base :sub (x, y))
-	((x1, y1), (x2, y2)) -> (base :sub (x1, x2), base :sub (y1, y2))
+	((x1, y1), (x2, y2)) -> (base :sub (x1, x2), base :sub (x2, y2))
 }
 
 fn mult {