np/random-phrase-generator
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Disable upcase converting

Browse Source
This commit is contained in:
Nikolay Puzanov 2023-02-22 10:53:46 +03:00
parent 8251bc5b16
commit 256ee6269c
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
random-phrase-generator.scm
View File

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