Skip to content
Snippets Groups Projects
Commit 47536147 authored by Hugo Hörnquist's avatar Hugo Hörnquist
Browse files

Change to better null trimming in parser.

parent 9e7e57ae
Branches
Tags
No related merge requests found
...@@ -90,9 +90,8 @@ ...@@ -90,9 +90,8 @@
MAPPLANES) MAPPLANES)
(u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; width (u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; width
(u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; height (u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; height
(string-filter ; name (string-trim-right (bytevector->string (get-bytevector-n port 16) "ASCII")
(bytevector->string (get-bytevector-n port 16) "ASCII") #\nul)
(lambda (c) (not (eq? c #\nul))))
;; (bytevector->string (get-bytevector-n port 4) "ASCII") ; "!ID!" ;; (bytevector->string (get-bytevector-n port 4) "ASCII") ; "!ID!"
)))) ))))
(get-offsets maphead))) (get-offsets maphead)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment