repl cruft

src/ludus.janet

@@ -49,37 +49,12 @@
  (set (out :draw) (post :draw))
  (-> out j/encode string))
 
-# (comment
+(comment
-(do
+# (do
 (def source `
-fn strip_punctuation {
+let myset = ${1, 2, 3, 3, 2}
- ("{x},{y}") -> strip_punctuation ("{x}{y}")
+omit (2, myset)
- ("{x}.{y}") -> strip_punctuation ("{x}{y}")
+myset
- ("{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")
 `)
 (def out (-> source 
  ludus