From 256ee6269cdfc7cddac6e8ed630eb9fcabbaeeca Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Wed, 22 Feb 2023 10:53:46 +0300
Subject: [PATCH] Disable upcase converting

---
 random-phrase-generator.scm | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/random-phrase-generator.scm b/random-phrase-generator.scm
index cc6aebb..8bea795 100755
--- a/random-phrase-generator.scm
+++ b/random-phrase-generator.scm
@@ -46,7 +46,4 @@
       (format #t "Usage: ~a <words-list-file.txt>\n" (car args))
       (let ((WORDS-FILE (cadr args)))
         (set! *random-state* (random-state-from-platform))
-        (display
-         (string-upcase
-          (random-phrase WORDS-FILE (+ 3 (random 4)))))
-        (newline))))
+        (format #t "~a\n" (random-phrase WORDS-FILE (+ 3 (random 4)))))))