Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #275 - Allow pretty printing of bytevectors

Browse source
This commit is contained in:
Justin Ethier 2018-09-05 18:00:55 -04:00
parent 4cf407ebe6
commit a5489fca46
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/pretty-print.sld
View file

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