From fa1bda0d0483294eab5cd477c3d7e82bc0b2b5df Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 14 Sep 2017 17:07:40 -0700 Subject: [PATCH] devops: log procedure does not coerce to string. --- src/devops/devops.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/devops/devops.scm b/src/devops/devops.scm index 4c75d7f16..33b33ed85 100644 --- a/src/devops/devops.scm +++ b/src/devops/devops.scm @@ -509,7 +509,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (cond ((> min 60) (log " No progress in over an hour!\n")) ((> min 10) - (log " No progress in "min" minutes.\n")) + (log " No progress in "(number->string min 10)" minutes.\n")) (else (log " Working...\n"))))) -- 2.25.1