guile-rsv

commit 863b60b69124fedd66b5c1f8bf660df83878417a
parent 71e75cfdb3a18bf6624fe5349438e64d19217d17
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Mon,  8 Jan 2024 14:50:36 +0200

Remove print debug.

Diffstat:
M
rsv.scm
 | 
4
+---

1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/rsv.scm b/rsv.scm
@@ -2,9 +2,9 @@
   (import (scheme base)
           (scheme file)
           (scheme write)
-          (ice-9 pretty-print)
           (ice-9 match))
   (export scm->rsv
+          rsv->scm
           main)
 
   (begin
@@ -13,7 +13,6 @@
     (define NULL-VALUE-BYTE 254)
 
     (define (scm->rsv scm port)
-      (pretty-print scm)
       (match scm
         (()
          (write-u8 ROW-TERMINATOR-BYTE
@@ -84,7 +83,6 @@
                        ("asdf" "fdsaa" #f "asdfsd" "asdf")
                        ()
                        (#f #f))))
-        (pretty-print our-scm)
         (call-with-output-file "poop.rsv"
           (lambda (port)
             (scm->rsv our-scm port)))