guile-rsv

commit c21890d6a7d8b43ad3093e552c1a2c898faccf2e
parent df423e5ddea20ac71b3bbed0cb4e4ac8251e3024
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 14 Jan 2024 11:56:03 +0200

Fix script code.

Diffstat:
M
bin/rsv2scm.scm
 | 
2
+-
M
bin/scm2rsv.scm
 | 
1
-

2 files changed, 1 insertion(+), 2 deletions(-)
diff --git a/bin/rsv2scm.scm b/bin/rsv2scm.scm
@@ -26,5 +26,5 @@
 (define (main args)
   (cond
    ((= (length args) 1)
-    (write (read-rsv #f (current-input-port)))
+    (write (read-rsv (current-input-port)))
     (newline))))
diff --git a/bin/scm2rsv.scm b/bin/scm2rsv.scm
@@ -28,5 +28,4 @@
    ((= (length args) 1)
     (let ((scm (read (current-input-port))))
       (write-rsv scm
-                 not
                  (current-output-port))))))