From 8eed4145db8330e6662a1a6f5507f9758358a771 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Mon, 17 Jun 2024 13:29:08 -0400
Subject: [PATCH] fix words

---
 prelude.ld      | 6 +++---
 src/ludus.janet | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/prelude.ld b/prelude.ld
index c5d39f8..3dc25b8 100644
--- a/prelude.ld
+++ b/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 do list > report! 
-			else do append (list, str) > report!
-		do fold (worder, strs, []) > report!
+			then list 
+			else append (list, str)
+		fold (worder, strs, [])
 	}
 }
 
diff --git a/src/ludus.janet b/src/ludus.janet
index 0b7bc78..d461351 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -52,7 +52,7 @@
 (comment
 # (do
 (def source `
-fold (add, [1, 2, 3])
+words ("foo bar ba,;;;!!!z")
 `)
 (def out (-> source 
  ludus