cripslock

commit 250506282452c9f7b250aeedd040f3b70cb83e60
parent 249e6c335b5a67b1d498bd819861ea1bf0d4b075
Author: Daniel Barlow <dan@telent.net>
Date:   Sat,  9 Aug 2025 19:46:24 +0100

delete unused fn

Diffstat:
M
textile.fnl
 | 
23
-----------------------

1 file changed, 0 insertions(+), 23 deletions(-)
diff --git a/textile.fnl b/textile.fnl
@@ -31,16 +31,6 @@
               })]
     (p:match doc)))
 
-(fn read-blocks [stream]
-  (let [co (coroutine.create
-            (fn []
-              (let [blocks (extract-blocks (stream:read "*a"))]
-                (each [_ b (ipairs blocks)]
-                  (coroutine.yield b)))))]
-    (fn []
-      (let [(code res) (coroutine.resume co)]
-        res))))
-
 (define-tests :extract-blocks
   (with-open [f (io.open "tests/paras.txt" :r)]
     (let [paras (extract-blocks (f:read "*a"))]
@@ -75,14 +65,6 @@ la
            ))
 
 
-(define-tests :read-blocks
-  (with-open [f (io.open "tests/paras.txt" :r)]
-    (let [paras
-          (icollect [p (read-blocks f)]
-            p)]
-      (expect= (# paras) 4)
-      (expect= (. paras 2) "this is\nalso a paragraph\n"))))
-
 (local block-tags
        (doto (collect [_ v (ipairs [
                                     :h1
@@ -146,11 +128,6 @@ la
   (expect= (merge-strings ["a" 7 "j"]) ["a" 7 "j"])
   (expect= (merge-strings ["a" "b" 7 ",j"]) ["ab" 7 ",j"]))
 
-
-(fn trace [x]
-  (print :TRACE (view x))
-  x)
-
 (var inline-parser nil)
 (set
  inline-parser