Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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) ((eq? #\x next-c)
(parse-number fp toks all? parens ptbl (parse-number fp toks all? parens ptbl
16 (lambda (num) (string->number (list->string num) 16)))) 16 (lambda (num) (string->number (list->string num) 16))))
;; Bytevector (TODO: this is just a placeholder for now) ;; Bytevector
((eq? #\u next-c) ((eq? #\u next-c)
(set! next-c (read-char fp)) (set! next-c (read-char fp))
(if (not (eq? #\8 next-c)) (if (not (eq? #\8 next-c))
@ -359,7 +359,7 @@
"Invalid vector syntax" ;(->dotted-list sub) "Invalid vector syntax" ;(->dotted-list sub)
(in-port:get-lnum ptbl) (in-port:get-lnum ptbl)
(in-port:get-cnum ptbl)) (in-port:get-cnum ptbl))
(list->vector sub)) (apply bytevector sub))
toks*)) toks*))
(if all? (if all?
(parse fp '() new-toks all? #f parens ptbl) (parse fp '() new-toks all? #f parens ptbl)