From a5489fca4682cc51fb9fc675a9c132ccc8914ac1 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 5 Sep 2018 18:00:55 -0400 Subject: [PATCH] Issue #275 - Allow pretty printing of bytevectors --- scheme/cyclone/pretty-print.sld | 3 +++ 1 file changed, 3 insertions(+) diff --git a/scheme/cyclone/pretty-print.sld b/scheme/cyclone/pretty-print.sld index 8e052d3b..a9fc91ba 100644 --- a/scheme/cyclone/pretty-print.sld +++ b/scheme/cyclone/pretty-print.sld @@ -84,6 +84,9 @@ (cond ((pair? obj) (wr-expr obj col)) ((null? obj) (wr-lst obj col)) ((vector? obj) (wr-lst (vector->list obj) (out "#" col))) + ((bytevector? obj) (wr-lst + (map char->integer (string->list (utf8->string obj))) + (out "#u8" col))) ((boolean? obj) (out (if obj "#t" "#f") col)) ((number? obj) (out (number->string obj) col)) ((symbol? obj) (out (symbol->string obj) col))