Change to better null trimming in parser.

47536147 · Hugo Hörnquist · 9e7e57ae · 47536147
Commit 47536147 authored Jun 19, 2019 by Hugo Hörnquist
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

parse-map.scm parse-map.scm +2 -3

No files found.
--- a/parse-map.scm
+++ b/parse-map.scm
@@ -90,9 +90,8 @@
                MAPPLANES)
               (u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; width
               (u16vector-ref (get-bytevector-n port (sizeof unsigned)) 0) ; height
-               (string-filter           ; name
-                (bytevector->string (get-bytevector-n port 16) "ASCII")
-                (lambda (c) (not (eq? c #\nul))))
+               (string-trim-right (bytevector->string (get-bytevector-n port 16) "ASCII")
+                                  #\nul)
               ;; (bytevector->string (get-bytevector-n port  4) "ASCII") ; "!ID!"
               ))))
      (get-offsets maphead)))