From 99adc7efdcbd607d5d66c5320a49ef20200c7c14 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Wed, 30 Dec 2020 18:45:18 +0100
Subject: [PATCH] tests: string-join: Be noisy.

* scaffold/boot/50-string-join.scm ("string-join\n"): Avoid exit 0
without output.
---
 scaffold/boot/50-string-join.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scaffold/boot/50-string-join.scm b/scaffold/boot/50-string-join.scm
index a7398fca..01fe5100 100644
--- a/scaffold/boot/50-string-join.scm
+++ b/scaffold/boot/50-string-join.scm
@@ -45,6 +45,7 @@
   (if (null? (cdr lst)) (car lst)
       (string-append (car lst) infix (string-join (cdr lst) infix))))
 
+(core:display "string-join\n")
 (if (string=? (string-join '("foo" "bar") "/") "foo/bar")
     (exit 0))
 (exit 1)