From 2ad939b48b017e18acbb405ec635f78220a706cc Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Sat, 15 Jun 2024 21:53:40 -0400
Subject: [PATCH] repl cruft

---
 src/ludus.janet | 35 +++++------------------------------
 1 file changed, 5 insertions(+), 30 deletions(-)

diff --git a/src/ludus.janet b/src/ludus.janet
index 26df90a..5c4dffc 100644
--- a/src/ludus.janet
+++ b/src/ludus.janet
@@ -49,37 +49,12 @@
  (set (out :draw) (post :draw))
  (-> out j/encode string))
 
-# (comment
-(do
+(comment
+# (do
 (def source `
-fn strip_punctuation {
- ("{x},{y}") -> strip_punctuation ("{x}{y}")
- ("{x}.{y}") -> strip_punctuation ("{x}{y}")
- ("{x};{y}") -> strip_punctuation ("{x}{y}")
- ("{x}:{y}") -> strip_punctuation ("{x}{y}")
- ("{x}?{y}") -> strip_punctuation ("{x}{y}")
- ("{x}!{y}") -> strip_punctuation ("{x}{y}")
- (x) -> x
-}
-
-fn trim_left {
- (" {x}") -> trim_left ("{x}")
- ("\n{x}") -> trim_left ("{x}")
- ("\t{x}") -> trim_left ("{x}")
- (x) -> x
-}
-
-fn trim_right {
- ("{x} ") -> trim_right ("{x}")
- ("{x}\n") -> trim_right ("{x}")
- ("{x}\t") -> trim_right ("{x}")
- (x) -> x
-}
-
-fn trim (x) -> do x > trim_left > trim_right
-
-trim_left ("      
- foo")
+let myset = ${1, 2, 3, 3, 2}
+omit (2, myset)
+myset
 `)
 (def out (-> source 
  ludus