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'] = 1826680;
+var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1827268;
 function invoke_i(index) {
   var sp = stackSave();
   try {

justfile

@@ -28,4 +28,3 @@ build:
 	rm build/ludus.jimage
 	janet -c src/ludus.janet build/ludus.jimage
 	cd build && just build
-	git commit -am "build"

prelude.ld

@@ -377,9 +377,9 @@ fn words {
 		let no_punct = strip (str)
 		let strs = split (no_punct, " ")
 		fn worder (list, str) -> if empty? (str) 
-			then list 
-			else append (list, str)
-		fold (worder, strs, [])
+			then do list > report! 
+			else do append (list, str) > report!
+		do fold (worder, strs, []) > report!
 	}
 }
 

src/ludus.janet

@@ -52,7 +52,7 @@
 (comment
 # (do
 (def source `
-words ("foo bar ba,;;;!!!z")
+fold (add, [1, 2, 3])
 `)
 (def out (-> source 
  ludus