From ef71ae5445ac51d1a9366bc479e9e611658a9507 Mon Sep 17 00:00:00 2001
From: Alexandros Theodotou <alex@zrythm.org>
Date: Tue, 24 Mar 2020 09:02:16 +0000
Subject: [PATCH] simplify manifest_gen.scm

---
 plugins/manifest_gen.scm | 24 +++++++++++-------------
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/plugins/manifest_gen.scm b/plugins/manifest_gen.scm
index e9a53f2..27a68dd 100755
--- a/plugins/manifest_gen.scm
+++ b/plugins/manifest_gen.scm
@@ -45,10 +45,10 @@ Args:
 (define (main . args)
 
   ;; verify number of args
-  (when (not (eq? (length args) 13))
-    ((display "Need 12 arguments")
-     (newline)
-     (exit -1)))
+  (unless (eq? (length args) 13)
+    (display "Need 12 arguments")
+    (newline)
+    (exit -1))
 
   ;; get args
   (match args
@@ -116,15 +116,13 @@ Collection of LV2 plugins to be bundled with Zrythm
 
          ;; add presets
          (when (file-exists? presets-file)
-           (begin
-             (newline)
-             (with-input-from-file presets-file
-               (lambda ()
-                 (let loop ((x (read-char)))
-                   (when (not (eof-object? x))
-                     (begin
-                       (display x)
-                       (loop (read-char))))))))))))))
+           (newline)
+           (with-input-from-file presets-file
+             (lambda ()
+               (let loop ((x (read-char)))
+                 (unless (eof-object? x)
+                   (display x)
+                   (loop (read-char))))))))))))
 
 
 (apply main (program-arguments))