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

Parse bytevectors correctly

Browse source
This commit is contained in:
Justin Ethier 2016-03-23 22:00:58 -04:00
parent 87ce05aa21
commit 29f49d9704
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/read.sld
View file

@ -338,7 +338,7 @@
((eq? #\x next-c)
(parse-number fp toks all? parens ptbl
16 (lambda (num) (string->number (list->string num) 16))))
;; Bytevector (TODO: this is just a placeholder for now)
;; Bytevector
((eq? #\u next-c)
(set! next-c (read-char fp))
(if (not (eq? #\8 next-c))
@ -359,7 +359,7 @@
"Invalid vector syntax" ;(->dotted-list sub)
(in-port:get-lnum ptbl)
(in-port:get-cnum ptbl))
(list->vector sub))
(apply bytevector sub))
toks*))
(if all?
(parse fp '() new-toks all? #f parens ptbl)