From 5e0757f94d357ef412402897df8bf7939ab75923 Mon Sep 17 00:00:00 2001 From: m455 Date: Mon, 15 Jun 2020 15:05:42 -0400 Subject: [PATCH] Removed the need to make a file when listing a random message --- src/nicethings.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/nicethings.rkt b/src/nicethings.rkt index 0b60702..ba8aef0 100644 --- a/src/nicethings.rkt +++ b/src/nicethings.rkt @@ -174,6 +174,7 @@ ;; are multiple newline characters. This ensures ;; there is only one newline character. (define (add string) + (repair) (let* ([string-no-newline (string-replace string "\n" "")] [string-newline (string-append string-no-newline "\n")]) (display-to-file string-newline @@ -188,7 +189,6 @@ (build-path home-directory nicethings-string)) (define (random-message) - (repair) (let* ([root (find-system-path 'sys-dir)] [root-home (build-path root "home")] [listof-homes (directory-list root-home #:build? #t)]