[no subject]

[Ludovic Courtès]

branch: master
commit fda885b513dfdabc6e22212d8e41e86e7d2ff061
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Sep 1 17:47:40 2023 +0200

    examples: random: Add non-ASCII UTF-8 string to the build log.
    
    * examples/random-manifest.scm (random-computed-file): Print a lambda.
---
 examples/random-manifest.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/examples/random-manifest.scm b/examples/random-manifest.scm
index 1fc491c..a763da9 100644
--- a/examples/random-manifest.scm
+++ b/examples/random-manifest.scm
@@ -44,8 +44,10 @@
                            (fail? #$(zero? (random 4 %state))))
                        (setvbuf (current-output-port) 'line)
                        (setvbuf (current-error-port) 'line)
+                       (set-port-encoding! (current-output-port) "UTF-8")
 
                        (display "Starting build!\n")
+                       (display "Here's a UTF-8-encoded lambda: λ.\n")
                        (sleep (pk 'sleeping delay))
                        (when fail?
                          (error "we're faillliiiiing!"))