X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=tools%2Flevelconverter-0.1.3_0.2.0.scm;h=10b0cea5b1a308600985f975d87a75f92e58b807;hb=1a6dbe26f00e7f9eabb65a1844ab7d2aa5648126;hp=e6cc095e1fd3eebd381f7e7dbfa5ce1c378cc1bf;hpb=d7ef17d963da2062f868a9c386bc63024af4173f;p=supertux.git diff --git a/tools/levelconverter-0.1.3_0.2.0.scm b/tools/levelconverter-0.1.3_0.2.0.scm index e6cc095e1..10b0cea5b 100755 --- a/tools/levelconverter-0.1.3_0.2.0.scm +++ b/tools/levelconverter-0.1.3_0.2.0.scm @@ -73,7 +73,7 @@ ; return SuperTux 0.1.3 level in SuperTux 0.2.x form (define (convert-level level) - (let + (let ( (type (car level)) (version (find-sublist level 'version)) @@ -100,12 +100,12 @@ (if (not background-tm) (error "No background tilemap given")) (if (not foreground-tm) (error "No foreground tilemap given")) (if (not objects) (error "No objects list given")) - (quasiquote + (quasiquote (supertux-level (version 2) (name (_ ,(car name))) (author ,(car author)) - ,(append + ,(append (quasiquote (sector (name "main")