package-lock.json

@@ -1,12 +1,12 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.18",
+  "version": "0.1.17",
   "lockfileVersion": 3,
   "requires": true,
   "packages": {
     "": {
       "name": "@ludus/ludus-js-pure",
-      "version": "0.1.18",
+      "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.18",
+  "version": "0.1.17",
   "description": "A Ludus interpreter in a pure JS function.",
   "type": "module",
   "main": "build/ludus.mjs",

prelude.ld

@@ -374,8 +374,11 @@ 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 do list > report! 
 			else do append (list, str) > report!