Skip to content
Snippets Groups Projects
Commit 72ead327 authored by ram's avatar ram
Browse files

Fixed READ-VAR-STRING to bump the index past the characters.

parent 83ab3d73
No related branches found
No related tags found
No related merge requests found
......@@ -98,6 +98,7 @@
(res `(make-string ,len)))
`(progn
(%primitive byte-blt ,vec ,index ,res 0 ,len)
(incf ,index ,len)
,res)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment