1 files changed, 0 insertions, 23 deletions

@@ -1,23 +0,0 @@
-(use-modules (ice-9 format)
-             (ice-9 peg)
-             (ice-9 textual-ports)
-             (fff))
-
-(define (read-file file)
-  (call-with-input-file file get-string-all))
-
-(define (test-parse input)
-  (let loop ((str "")
-             (num 0)
-             (lst (string-split input #\newline)))
-    (cond
-     ((null? lst) (match-pattern fff str))
-     ((not (match-pattern fff str))
-      (format #t "!!!!!!!!!!!!!!!!!!!!!!!~%~s~%" lst))
-     (else
-      (format #t "~s~%~%" (peg:tree (match-pattern fff str)))
-      (when (match-pattern fff str)
-        (format #t "~s~%" (car lst)))
-      (loop (string-append str "\n" (car lst))
-            (+ num 1)
-            (cdr lst))))))