fix bug in at

README.md

@@ -2,8 +2,7 @@
 ## Ludus: A friendly, dynamic, functional language
 Ludus is a scripting programming language that is designed to be friendly, dynamic, and functional.
 
-This repo currently contains an in-progress reference implementation of an interpreter for the Ludus programming language, using Clojure as a host language.
+This repo currently contains a work-in-progress implementation of an interpreter for the Ludus programming language, using [Janet](https://janet-lang.org) as a host language.
-
 Ludus is part of the [_Thinking with Computers_ project](https://alea.ludus.dev/twc/), run by Scott Richmond at the University of Toronto, with collaborator Matt Nish-Lapidus; Bree Lohman and Mynt Marsellus are the RAs for the project. Ludus is our research language, which aspires to be a free translation of Logo for the 2020s.
 
 Here are our design goals:

build/out.mjs

@@ -6489,7 +6489,7 @@ var __emscripten_stack_alloc = (a0) => (__emscripten_stack_alloc = wasmExports['
 var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])();
 var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
 var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5);
-var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1803884;
+var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1825664;
 function invoke_i(index) {
   var sp = stackSave();
   try {

package-lock.json

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

package.json

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

prelude.ld

@@ -5,7 +5,7 @@
 fn and
 fn append
 fn apply_command
-fn assoc & ?
+fn assoc
 fn atan/2
 fn deg/rad
 fn dict
@@ -15,6 +15,7 @@ fn get
 fn join
 fn mod
 fn neg?
+fn print!
 fn some?
 fn state/call
 fn store!
@@ -190,15 +191,13 @@ fn list {
 fn fold {
 	"Folds a list."
 	(f as :fn, xs as :list) -> fold (f, xs, f ())
-	(f as :fn, xs as :list, root) -> {
+	(f as :fn, xs as :list, root) -> loop (root, first (xs), rest (xs)) with {
-		loop (root, first (xs), rest (xs)) with {
+		(prev, curr, []) -> f (prev, curr)
-			(prev, curr, []) -> f (prev, curr)
+		(prev, curr, remaining) -> recur (
-			(prev, curr, remaining) -> recur (
+			f (prev, curr)
-				f (prev, curr)
+			first (remaining)
-				first (remaining)
+			rest (remaining)
-				rest (remaining)
+		)
-			)
-		}
 	}
 }
 
@@ -375,12 +374,15 @@ fn strip {
 fn words {
 	"Takes a string and returns a list of the words in the string. Strips all whitespace."
 	(str as :string) -> {
+		print! (str)
 		let no_punct = strip (str)
+		print! (no_punct)
 		let strs = split (no_punct, " ")
+		print! (strs)
 		fn worder (list, str) -> if empty? (str) 
-			then list 
+			then do list > report! 
-			else append (list, str)
+			else do append (list, str) > report!
-		fold (worder, strs, [])
+		do fold (worder, strs, []) > report!
 	}
 }
 
@@ -623,7 +625,7 @@ fn max {
 & additional list operations now that we have comparitors
 fn at {
 	"Returns the element at index n of a list or tuple, or the byte at index n of a string. Zero-indexed: the first element is at index 0. Returns nil if nothing is found in a list or tuple; returns an empty string if nothing is found in a string."
-	(xs as :list, n as :number) -> base :nth (xs, n)
+	(xs as :list, n as :number) -> base :nth (n, xs)
 	(xs as :tuple, n as :number) -> base :nth (n, xs)
 	(str as :string, n as :number) -> when {
 		neg? (n) -> ""

src/ludus.janet

@@ -52,9 +52,7 @@
 (comment
 # (do
 (def source `
-let myset = ${1, 2, 3, 3, 2}
+fold (add, [1, 2, 3])
-omit (2, myset)
-myset
 `)
 (def out (-> source 
  ludus