examples: random: Add non-ASCII UTF-8 string to the build log.

* examples/random-manifest.scm (random-computed-file): Print a lambda.
This commit is contained in:
Ludovic Courtès 2023-09-01 17:47:40 +02:00
parent 2ee6dc6947
commit fda885b513
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 0 deletions

View File

@ -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!"))