render: tiled: Accept map versions 1.1 and 1.2.
authorDavid Thompson <davet@gnu.org>
Wed, 8 May 2019 21:27:13 +0000 (17:27 -0400)
committerDavid Thompson <davet@gnu.org>
Wed, 8 May 2019 21:27:13 +0000 (17:27 -0400)
chickadee/render/tiled.scm

index 51f2cb9..8e8b8f4 100644 (file)
   (let* ((tree (call-with-input-file file-name xml->sxml))
          (m ((sxpath '(map)) tree))
          (version (let ((version (attr m 'version)))
-                    (unless (string=? version "1.0")
+                    (unless (any (lambda (v) (string=? version v)) '("1.0" "1.1" "1.2"))
                       (error "unsupported tiled map format version" version))
                     version))
          (orientation (attr m 'orientation string->symbol))