Welcome to the CHICKEN Scheme pasting service

post-optimisation CPS-converted buggy code added by Reid 13 hours ago

  '/usr/bin/chicken-csc' '-s' '-J' '-I' '/home/reid/source/personal/tyalie/src' '-C' '-I' '-C' '/home/reid/source/personal/tyalie/src' '/home/reid/source/personal/tyalie/src/editor/cursor.scm' '-o' 'editor.cursor.so' '-O3' '-d2' '-strict-types' '-Ddraw-qtree' '-Duse-bintree' '-Dnrepl' '-debug' '7'
[optimized]
(lambda (k1144)
  (let ((k1145 (##core#lambda
                 (r1146)
                 (let ((k1148 (##core#lambda
                                (r1149)
                                (let ((t1005 (##core#provide editor.cursor#)))
                                  (let ((k1151 (##core#lambda
                                                 (r1152)
                                                 (let ((k1154 (##core#lambda
                                                                (r1155)
                                                                (let ((k1157 (##core#lambda
                                                                               (r1158)
                                                                               (let ((k1160 (##core#lambda
                                                                                              (r1161)
                                                                                              (let ((k1163 (##core#lambda
                                                                                                             (r1164)
                                                                                                             (let ((k1166 (##core#lambda
                                                                                                                            (r1167)
                                                                                                                            (let ((k1169 (##core#lambda
                                                                                                                                           (r1170)
                                                                                                                                           (let ((k1172 (##core#lambda
                                                                                                                                                          (r1173)
                                                                                                                                                          (let ((k1175 (##core#lambda
                                                                                                                                                                         (r1176)
                                                                                                                                                                         (let ((k1178 (##core#lambda
                                                                                                                                                                                        (r1179)
                                                                                                                                                                                        (let ((k1181 (##core#lambda
                                                                                                                                                                                                       (r1182)
                                                                                                                                                                                                       (let ((k1185 (##core#lambda
                                                                                                                                                                                                                      (r1186)
                                                                                                                                                                                                                      (let ((t1184 (set! editor.cursor# #f r1186)))
                                                                                                                                                                                                                        (let ((k1189 (##core#lambda
                                                                                                                                                                                                                                       (r1190)
                                                                                                                                                                                                                                       (let ((t1188 (set! editor.cursor#cursor-modes #f r1190)))
                                                                                                                                                                                                                                         (let ((t1192 (set! editor.cursor#make-cursor
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (lambda (k1194 x679 y680 . rest678681)
                                                                                                                                                                                                                                                          (let ((k1195 (##core#lambda
                                                                                                                                                                                                                                                                         (r1196)
                                                                                                                                                                                                                                                                         (let ((k1198 (##core#lambda
                                                                                                                                                                                                                                                                                        (r1199)
                                                                                                                                                                                                                                                                                        (let ((k1201 (##core#lambda
                                                                                                                                                                                                                                                                                                       (r1202)
                                                                                                                                                                                                                                                                                                       (let ((k1208 (##core#lambda
                                                                                                                                                                                                                                                                                                                      (r1209)
                                                                                                                                                                                                                                                                                                                      (r1202 k1194
                                                                                                                                                                                                                                                                                                                             x679
                                                                                                                                                                                                                                                                                                                             y680
                                                                                                                                                                                                                                                                                                                             0
                                                                                                                                                                                                                                                                                                                             0
                                                                                                                                                                                                                                                                                                                             0
                                                                                                                                                                                                                                                                                                                             0
                                                                                                                                                                                                                                                                                                                             r1199
                                                                                                                                                                                                                                                                                                                             r1196
                                                                                                                                                                                                                                                                                                                             r1209
                                                                                                                                                                                                                                                                                                                             #f))))
                                                                                                                                                                                                                                                                                                         (engine.entity#make-entity
                                                                                                                                                                                                                                                                                                           k1208
                                                                                                                                                                                                                                                                                                           x679
                                                                                                                                                                                                                                                                                                           y680
                                                                                                                                                                                                                                                                                                           '#:tags
                                                                                                                                                                                                                                                                                                           '(noclip nointeract))))))
                                                                                                                                                                                                                                                                                          (srfi-99-records-procedural#rtd-constructor
                                                                                                                                                                                                                                                                                            k1201
                                                                                                                                                                                                                                                                                            editor.cursor#)))))
                                                                                                                                                                                                                                                                           (let ((a1211 (lambda (k1213)
                                                                                                                                                                                                                                                                                          (srfi-209#enum-name->enum
                                                                                                                                                                                                                                                                                            k1213
                                                                                                                                                                                                                                                                                            editor.cursor#cursor-modes
                                                                                                                                                                                                                                                                                            'brush))))
                                                                                                                                                                                                                                                                             (##sys#get-keyword
                                                                                                                                                                                                                                                                               k1198
                                                                                                                                                                                                                                                                               '#:mode
                                                                                                                                                                                                                                                                               rest678681
                                                                                                                                                                                                                                                                               a1211))))))
                                                                                                                                                                                                                                                            (let ((a1217 (lambda (k1219) (k1219 0))))
                                                                                                                                                                                                                                                              (##sys#get-keyword
                                                                                                                                                                                                                                                                k1195
                                                                                                                                                                                                                                                                '#:tile
                                                                                                                                                                                                                                                                rest678681
                                                                                                                                                                                                                                                                a1217)))))))
                                                                                                                                                                                                                                           (let ((k1221 (##core#lambda
                                                                                                                                                                                                                                                          (r1222)
                                                                                                                                                                                                                                                          (let ((t1220 (set! editor.cursor#cursor? #f r1222)))
                                                                                                                                                                                                                                                            (let ((k1225 (##core#lambda
                                                                                                                                                                                                                                                                           (r1226)
                                                                                                                                                                                                                                                                           (let ((t1224 (set! editor.cursor#cursor-x #f r1226)))
                                                                                                                                                                                                                                                                             (let ((k1229 (##core#lambda
                                                                                                                                                                                                                                                                                            (r1230)
                                                                                                                                                                                                                                                                                            (let ((t1228 (set! editor.cursor#cursor-y #f r1230)))
                                                                                                                                                                                                                                                                                              (let ((k1233 (##core#lambda
                                                                                                                                                                                                                                                                                                             (r1234)
                                                                                                                                                                                                                                                                                                             (let ((t1232 (set! editor.cursor#cursor-ax #f r1234)))
                                                                                                                                                                                                                                                                                                               (let ((k1237 (##core#lambda
                                                                                                                                                                                                                                                                                                                              (r1238)
                                                                                                                                                                                                                                                                                                                              (let ((t1236 (set! editor.cursor#cursor-ay #f r1238)))
                                                                                                                                                                                                                                                                                                                                (let ((k1241 (##core#lambda
                                                                                                                                                                                                                                                                                                                                               (r1242)
                                                                                                                                                                                                                                                                                                                                               (let ((t1240 (set! editor.cursor#cursor-dx #f r1242)))
                                                                                                                                                                                                                                                                                                                                                 (let ((k1245 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                (r1246)
                                                                                                                                                                                                                                                                                                                                                                (let ((t1244 (set! editor.cursor#cursor-dy #f r1246)))
                                                                                                                                                                                                                                                                                                                                                                  (let ((k1249 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                 (r1250)
                                                                                                                                                                                                                                                                                                                                                                                 (let ((t1248 (set! editor.cursor#cursor-mode #f r1250)))
                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1253 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                  (r1254)
                                                                                                                                                                                                                                                                                                                                                                                                  (let ((t1252 (set! editor.cursor#cursor-tile #f r1254)))
                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1257 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                   (r1258)
                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((t1256 (set! editor.cursor#cursor-actor #f r1258)))
                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1261 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1262)
                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((t1260 (set! editor.cursor#cursor-area-select #f r1262)))
                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((t1264 (set! editor.cursor#cursor-update!
                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                     (lambda (k1266 self702 . rest701703)
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1267 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1268)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1270 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1271)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (if r1271
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1276 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1277)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1279 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1280)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1282 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1283)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1285 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1286)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1288 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1289)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1291 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1292)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k1294 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1295)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k1297 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1298)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((k1300 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r1301)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((k1303 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1304)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1306 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1307)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k1309 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r1310)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((k1312 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1313)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((k1315 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r1316)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((k1453 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r1454)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((r1322 (##core#inline "C_eqp" 'cycle r1454)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (if r1322
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k1324 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r1325)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((k1327 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1328)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((k1333 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r1334)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (if r1334
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((k1336 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1337)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((k1339 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r1340)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((k1342 (##core#lambda (r1343) (r1268 k1266 #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (engine.graphics#refresh-tilemap! k1342 r1271)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k1354 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r1355)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((a1352 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r1355
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1362 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1363)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((r1359 (##core#inline "C_i_vector_length" r1363)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((r1350 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ("C_s_a_i_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             a1352
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r1359)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1337 k1339 r1271 r1325 r1328 r1350))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (engine.tilemap#tile-info k1362))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (engine.tilemap#tilemap-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                k1354
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r1271
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r1325
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r1328))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (##sys#setter k1336 engine.tilemap#tilemap-ref))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((k1368 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1369)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (if r1369
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k1371 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r1372)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((k1374 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1375)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((k1377 (##core#lambda (r1378) (r1268 k1266 #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (engine.graphics#refresh-tilemap! k1377 r1271)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1389 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1390)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((a1387 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r1390
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((k1397 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1398)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((r1394 (##core#inline "C_i_vector_length" r1398)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((r1385 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ("C_s_a_i_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              a1387
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              r1394)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1372 k1374 r1271 r1325 r1328 r1385))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (engine.tilemap#tile-info k1397))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (engine.tilemap#tilemap-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 k1389
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r1271
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r1325
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r1328))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (##sys#setter k1371 engine.tilemap#tilemap-ref))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (k1266 (##core#undefined))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1280 k1368 'dec-tile))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1280 k1333 'inc-tile)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (editor.cursor#cursor-y k1327 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (editor.cursor#cursor-x k1324 self702))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k1403 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r1404)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (if r1404
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1406 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1407)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k1415 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r1416)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((a1413 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ("C_s_a_u_i_integer_plus" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r1416
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1423 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1424)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((r1420 (##core#inline "C_i_vector_length" r1424)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((a1412 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ("C_s_a_u_i_integer_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             a1413
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r1420)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1407 k1266 self702 a1412))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (engine.tilemap#tile-info k1423))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (editor.cursor#cursor-tile k1415 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (##sys#setter k1406 editor.cursor#cursor-tile))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1429 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1430)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (if r1430
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((k1432 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1433)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1441 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1442)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((a1439 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ("C_s_a_u_i_integer_minus" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r1442
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((k1449 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1450)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((r1446 (##core#inline "C_i_vector_length" r1450)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((a1438 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ("C_s_a_u_i_integer_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              a1439
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              r1446)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1433 k1266 self702 a1438))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (engine.tilemap#tile-info k1449))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (editor.cursor#cursor-tile k1441 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (##sys#setter k1432 editor.cursor#cursor-tile))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (k1266 (##core#undefined))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1280 k1429 'dec-tile))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r1280 k1403 'inc-tile)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((k1457 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1458)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (srfi-209#enum-name k1453 r1458))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (editor.cursor#cursor-mode k1457 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((r1461 (##core#inline "C_eqp" r1313 'brush)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (if r1461
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k1466 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1467)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (if r1467
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k1469 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1470)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k1472 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1473)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((k1475 (##core#lambda (r1476) (r1268 k1315 #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (engine.graphics#refresh-tilemap! k1475 r1271)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1482 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1483)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k1486 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1487)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k1490 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1491)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1470 k1472 r1271 r1483 r1487 r1491))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (editor.cursor#cursor-tile k1490 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (editor.cursor#cursor-y k1486 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (editor.cursor#cursor-x k1482 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (##sys#setter k1469 engine.tilemap#tilemap-ref))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((r14642277 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (k1315 r14642277))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1280 k1466 'draw))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((r1497 (##core#inline "C_eqp" r1313 'select)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (if r1497
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1502 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1503)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (if r1503
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1505 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1506)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1508 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1509)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1511 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1512)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1514 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1515)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((a1520 (lambda (k1522)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (if (##core#inline "C_i_integer_lessp" r1506 r1512)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((##core#proc "C_values" #t) k1522 r1506 r1512)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((##core#proc "C_values" #t) k1522 r1512 r1506)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((a1534 (lambda (k1536 x1815816819 x2817818820)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((a1540 (lambda (k1542)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (if (##core#inline "C_i_integer_lessp" r1509 r1515)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ((##core#proc "C_values" #t) k1542 r1509 r1515)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ((##core#proc "C_values" #t) k1542 r1515 r1509)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((a1554 (lambda (k1556 y1823824827 y2825826828)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1557 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1558)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1560 (##core#lambda (r1561) (r1268 k1556 #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (engine.graphics#refresh-tilemap! k1560 r1271)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((doloop831832 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((t1566 (set! doloop831832
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (lambda (k1568 j833)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((r1613 (##core#inline
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       "C_i_less_or_equalp"
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       j833
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       y2825826828)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (if (##core#inline "C_i_not" r1613)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((r15702283 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (k1568 r15702283))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((k1575 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r1576)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((a1581 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          j833
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (doloop831832 k1568 a1581)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((doloop834835 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((t1583 (set! doloop834835
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (lambda (k1585 i836)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((r1609 (##core#inline
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                "C_i_less_or_equalp"
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                i836
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                x2817818820)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (if (##core#inline "C_i_not" r1609)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((r15872285 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (k1585 r15872285))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1592 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1593)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1595 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1596)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((a1601 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  i836
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (doloop834835 k1585 a1601)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1604 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1605)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1593 k1595 r1271 i836 j833 r1605))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (editor.cursor#cursor-tile k1604 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (##sys#setter k1592 engine.tilemap#tilemap-ref))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (doloop834835 k1575 x1815816819))))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (doloop831832 k1557 y1823824827)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((##core#proc "C_call_with_values" #t)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       k1536
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       a1540
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       a1554))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ((##core#proc "C_call_with_values" #t)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      k1315
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      a1520
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      a1534))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (editor.cursor#cursor-ay k1514 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (editor.cursor#cursor-ax k1511 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (editor.cursor#cursor-y k1508 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (editor.cursor#cursor-x k1505 self702))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (k1315 (##core#undefined))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1280 k1502 'draw))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((r14942287 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (k1315 r14942287))))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((k1620 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r1621)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (srfi-209#enum-name k1312 r1621))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (editor.cursor#cursor-mode k1620 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((k1623 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1624)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (if r1624
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((k1626 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r1627)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((k1633 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1634)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r1627 k1309 self702 r1634))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k1637 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1638)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((k1641 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r1642)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (engine.tilemap#tilemap-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                k1633
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r1271
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r1638
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r1642))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (editor.cursor#cursor-y k1641 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (editor.cursor#cursor-x k1637 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (##sys#setter k1626 editor.cursor#cursor-tile))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (k1309 (##core#undefined))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1280 k1623 'pick-tile))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((r1645 (##core#inline "C_eqp" r1304 'select)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (if r1645
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1647 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1648)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1650 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1651)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k1653 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1654)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k1660 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1661)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1654 k1306 self702 r1661))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (editor.cursor#cursor-y k1660 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (##sys#setter k1653 editor.cursor#cursor-ay)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1664 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1665)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1648 k1650 self702 r1665))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (editor.cursor#cursor-x k1664 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (##sys#setter k1647 editor.cursor#cursor-ax))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (k1306 (##core#undefined))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k1670 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r1671)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (srfi-209#enum-name k1303 r1671))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (editor.cursor#cursor-mode k1670 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k1673 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1674)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (if r1674
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1676 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1677)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k1683 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1684)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1677 k1300 self702 r1684))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (srfi-209#enum-name->enum
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     k1683
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     editor.cursor#cursor-modes
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     'brush)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (##sys#setter k1676 editor.cursor#cursor-mode))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1689 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1690)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (if r1690
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1692 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1693)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1699 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1700)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1693 k1300 self702 r1700))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (srfi-209#enum-name->enum
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      k1699
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      editor.cursor#cursor-modes
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      'select)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (##sys#setter k1692 editor.cursor#cursor-mode))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1705 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1706)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (if r1706
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1708 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1709)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1715 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1716)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1709 k1300 self702 r1716))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (srfi-209#enum-name->enum
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       k1715
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       editor.cursor#cursor-modes
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       'cycle)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (##sys#setter k1708 editor.cursor#cursor-mode))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1721 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1722)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (if r1722
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1724 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1725)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1731 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1732)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1734 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1735)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1725 k1300 self702 r1735))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (if r1732
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1725 k1300 self702 r1732)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (srfi-209#enum-min
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         k1734
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         editor.cursor#cursor-modes))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1741 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1742)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (srfi-209#enum-next k1731 r1742))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (editor.cursor#cursor-mode k1741 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (##sys#setter k1724 editor.cursor#cursor-mode))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1747 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1748)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (if r1748
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1750 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1751)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1757 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1758)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1760 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1761)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1751 k1300 self702 r1761))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (if r1758
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r1751 k1300 self702 r1758)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (srfi-209#enum-max
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          k1760
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          editor.cursor#cursor-modes))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1767 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1768)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (srfi-209#enum-prev k1757 r1768))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (editor.cursor#cursor-mode k1767 self702))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (##sys#setter k1750 editor.cursor#cursor-mode))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((t1770 (##core#undefined))) (k1300 t1770))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1280 k1747 'prev-mode))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1280 k1721 'next-mode))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1280 k1705 'cycle-mode))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1280 k1689 'select-mode))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1280 k1673 'brush-mode))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1772 (##core#lambda (r1773) (r1295 k1297 r1277 r1773))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1780 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1781)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1788 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1789)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((r1785 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 1/2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r1789)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((r1777 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ("C_s_a_i_times" 33)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1781
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1785)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (scheme#round k1772 r1777))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (editor.cursor#cursor-y k1788 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (engine.tilemap#tile-size k1780)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (##sys#setter k1294 engine.entity#entity-y)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1792 (##core#lambda (r1793) (r1289 k1291 r1277 r1793))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1800 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1801)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1808 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1809)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((r1805 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   1/2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1809)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((r1797 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ("C_s_a_i_times" 33)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r1801
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r1805)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (scheme#round k1792 r1797))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (editor.cursor#cursor-x k1808 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (engine.tilemap#tile-size k1800)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (##sys#setter k1288 engine.entity#entity-x)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1811 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1812)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (if r1812
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1814 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1815)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1826 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1827)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((a1824 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ("C_s_a_u_i_integer_minus" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r1827
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1830 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1831)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((r1822 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ("C_s_a_i_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     a1824
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r1831)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r1815 k1285 self702 r1822)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (engine.tilemap#tilemap-height k1830 r1271))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (editor.cursor#cursor-y k1826 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (##sys#setter k1814 editor.cursor#cursor-y))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1836 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1837)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (if r1837
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1839 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1840)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1851 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1852)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((a1849 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ("C_s_a_u_i_integer_plus" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r1852
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1855 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1856)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((r1847 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ("C_s_a_i_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      a1849
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r1856)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r1840 k1285 self702 r1847)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (engine.tilemap#tilemap-height k1855 r1271))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (editor.cursor#cursor-y k1851 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (##sys#setter k1839 editor.cursor#cursor-y))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((r18342301 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (k1285 r18342301))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r1280 k1836 'move-down))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r1280 k1811 'move-up))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1858 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1859)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (if r1859
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1861 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1862)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1873 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1874)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((a1871 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ("C_s_a_u_i_integer_minus" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r1874
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1877 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1878)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((r1869 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ("C_s_a_i_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      a1871
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r1878)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r1862 k1282 self702 r1869)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (engine.tilemap#tilemap-width k1877 r1271))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (editor.cursor#cursor-x k1873 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (##sys#setter k1861 editor.cursor#cursor-x))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1883 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1884)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (if r1884
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((k1886 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r1887)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1898 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1899)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((a1896 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ("C_s_a_u_i_integer_plus" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r1899
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((k1902 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r1903)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((r1894 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ("C_s_a_i_modulo" 5)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       a1896
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       r1903)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1887 k1282 self702 r1894)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (engine.tilemap#tilemap-width k1902 r1271))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (editor.cursor#cursor-x k1898 self702)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (##sys#setter k1886 editor.cursor#cursor-x))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((r18812303 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (k1282 r18812303))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r1280 k1883 'move-right))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r1280 k1858 'move-left))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((a1905 (lambda (k1907 g716717720)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (k1907 (##core#inline "C_eqp" 'pressed g716717720)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((g724725731 engine.input#get-input))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((a1911 (lambda (k1913 g728729732)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (g724725731 k1913 'editor g728729732))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (chicken.base#compose k1279 a1905 a1911))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (editor.cursor#cursor-actor k1276 self702))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((r12742304 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (k1266 r12742304))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1917 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1918)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (if r1918
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((k1924 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r1925)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (engine.level#level-tilemap k1270 r1925))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (engine.commons#level k1924))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (k1270 #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (engine.commons#level k1917))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((a1927 (lambda (k1929) (k1929 chicken.base#void))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                           (##sys#get-keyword
                                                                                                                                                                                                                                                                                                                                                                                                                                                             k1267
                                                                                                                                                                                                                                                                                                                                                                                                                                                             '#:modified?
                                                                                                                                                                                                                                                                                                                                                                                                                                                             rest701703
                                                                                                                                                                                                                                                                                                                                                                                                                                                             a1927)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((t1930 (set! editor.cursor#cursor-draw!
                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (lambda (k1932 self879 . rest878880)
                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((r2266 (##core#rest-null? rest878880 0)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((r1934 (##core#cond
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r2266
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (##core#rest-car rest878880 0))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((r2260 (##core#rest-null? rest878880 0)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((r2254 (##core#rest-null? rest878880 1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((r1940 (##core#cond
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r2254
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (##core#rest-car rest878880 1))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((r2248 (##core#rest-null? rest878880 1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1945 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1946)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k1952 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r1953)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k1956 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r1957)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k1959 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r1960)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (sdl2#render-draw-rect! k1932 r1953 r1960))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((r1963 (##core#inline "C_eqp" r1957 'select)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (if r1963
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k1965 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r1966)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k1968 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r1969)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k1971 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r1972)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k1974 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r1975)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((a1980 (lambda (k1982)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((r1988 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ("C_a_i_cons" 3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (##core#undefined)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  '())))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((g931939 r1988))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((g930940 g931939))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((k1999 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r2000)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k2002 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r2003)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ((##core#proc "C_apply" #t)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        k1982
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        scheme#values
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        r2003))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((map-loop926951 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((t2005 (set! map-loop926951
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (lambda (k2007 g938952)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (if (##core#inline "C_i_pairp" g938952)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((r2034 (##core#inline "C_slot" g938952 0)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k1996 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r1997)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((r2030 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ("C_s_a_i_times" 33)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r1997
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r2034)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((r2015 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ("C_a_i_cons" 3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r2030
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 '())))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((r2018 (##core#inline "C_i_setslot" g931939 1 r2015)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((t2020 (set! g931939 #f r2015)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (map-loop926951
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          k2007
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (##core#inline "C_slot" g938952 1)))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (engine.tilemap#tile-size k1996)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (k2007 (##core#inline "C_slot" g930940 1)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (map-loop926951 k2002 r2000)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (if (##core#inline "C_i_integer_lessp" r1966 r1972)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((va2360
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (lambda (r2359)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((r2046 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r2359
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      -1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (k1999 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ("C_a_i_list2" 6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r1966
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r2046))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (va2360
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1972
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1966)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((va2362
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (lambda (r2361)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((r2053 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r2361
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      -1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (k1999 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ("C_a_i_list2" 6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r1972
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r2053))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (va2362
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1966
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1972)))))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((a2055 (lambda (k2057 x1920921958 w922923959)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((a2061 (lambda (k2063)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((r2069 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ("C_a_i_cons" 3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (##core#undefined)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   '())))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((g973981 r2069))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((g972982 g973981))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((k2080 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r2081)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (let ((k2083 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r2084)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((##core#proc "C_apply" #t)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         k2063
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         scheme#values
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         r2084))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((map-loop968993 (##core#undefined)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (let ((t2086 (set! map-loop968993
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (lambda (k2088 g980994)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (if (##core#inline "C_i_pairp" g980994)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((r2115 (##core#inline "C_slot" g980994 0)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((k2077 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r2078)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((r2111 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ("C_s_a_i_times" 33)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r2078
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r2115)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((r2096 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ("C_a_i_cons" 3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r2111
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  '())))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((r2099 (##core#inline "C_i_setslot" g973981 1 r2096)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((t2101 (set! g973981 #f r2096)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (map-loop968993
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           k2088
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (##core#inline "C_slot" g980994 1)))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (engine.tilemap#tile-size k2077)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (k2088 (##core#inline "C_slot" g972982 1)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (map-loop968993 k2083 r2081)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (if (##core#inline "C_i_integer_lessp" r1969 r1975)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((va2366
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (lambda (r2365)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((r2127 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       r2365
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       -1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (k2080 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ("C_a_i_list2" 6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1969
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r2127))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (va2366
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r1975
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r1969)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((va2368
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (lambda (r2367)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((r2134 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       r2367
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       -1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (k2080 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ("C_a_i_list2" 6)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r1975
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r2134))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (va2368
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ("C_s_a_i_minus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r1969
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r1975)))))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((a2136 (lambda (k2138 y19629631000 h9649651001)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((va2372
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (lambda (r2371)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((r2144 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r2371
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r1934)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((va2370
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (lambda (r2369)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (let ((r2148 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r2369
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r1940)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((r2152 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             w922923959
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             2)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((r2156 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               h9649651001
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               2)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (sdl2-internals#make-rect
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    k2138
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2144
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2148
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2152
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2156)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (va2370
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        y19629631000
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        -1)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (va2372
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            x1920921958
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            -1))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ((##core#proc "C_call_with_values" #t)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          k2057
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          a2061
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          a2136))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((##core#proc "C_call_with_values" #t)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         k1959
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         a1980
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         a2055))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (editor.cursor#cursor-ay k1974 self879)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (editor.cursor#cursor-ax k1971 self879)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (editor.cursor#cursor-y k1968 self879)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (editor.cursor#cursor-x k1965 self879))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k2202 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r2203)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k2206 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r2207)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((r2199 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ("C_s_a_i_times" 33)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r2203
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r2207)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((va2376
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (lambda (r2375)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((r2163 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r2375
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r1934)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((k2190 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r2191)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (let ((k2194 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r2195)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (let ((r2187 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ("C_s_a_i_times" 33)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r2191
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r2195)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (let ((va2374
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (lambda (r2373)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (let ((r2167 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r2373
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r1940)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((k2182 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r2183)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (let ((r2171 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              r2183
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              2)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (let ((k2178 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r2179)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (let ((r2175 (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r2179
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               2)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (sdl2-internals#make-rect
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    k1959
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2163
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2167
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2171
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r2175)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (engine.tilemap#tile-size k2178))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (engine.tilemap#tile-size k2182))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (va2374
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r2187
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          -1)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (engine.tilemap#tile-size k2194)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (editor.cursor#cursor-y k2190 self879))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (va2376
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (##core#inline_allocate
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ("C_s_a_i_plus" 29)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              r2199
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              -1)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (engine.tilemap#tile-size k2206)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (editor.cursor#cursor-x k2202 self879))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (let ((k2212 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r2213)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (srfi-209#enum-name k1956 r2213))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (editor.cursor#cursor-mode k2212 self879))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (engine.commons#renderer k1952)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((k2216 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r2217)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (let ((k2220 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r2221)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (sdl2#render-draw-color-set! k1945 r2217 r2221))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (let ((k2224 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r2225)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (let ((r2231 (##core#inline "C_eqp" r2225 'select)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (if r2231
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (engine.graphics#get-color k2220 'blue)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (let ((r2237 (##core#inline "C_eqp" r2225 'cycle)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (if r2237
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (engine.graphics#get-color k2220 'green)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (engine.graphics#get-color k2220 'white))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (let ((k2244 (##core#lambda
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r2245)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (srfi-209#enum-name k2224 r2245))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (editor.cursor#cursor-mode k2244 self879)))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (engine.commons#renderer k2216)))))))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                                          (k1144 (##core#undefined))))))))
                                                                                                                                                                                                                                                                                                                                                                                                                       (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                                                                                                                                         k1261
                                                                                                                                                                                                                                                                                                                                                                                                                         editor.cursor#
                                                                                                                                                                                                                                                                                                                                                                                                                         'area-select))))))
                                                                                                                                                                                                                                                                                                                                                                                                      (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                                                                                                                        k1257
                                                                                                                                                                                                                                                                                                                                                                                                        editor.cursor#
                                                                                                                                                                                                                                                                                                                                                                                                        'actor))))))
                                                                                                                                                                                                                                                                                                                                                                                     (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                                                                                                       k1253
                                                                                                                                                                                                                                                                                                                                                                                       editor.cursor#
                                                                                                                                                                                                                                                                                                                                                                                       'tile))))))
                                                                                                                                                                                                                                                                                                                                                                    (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                                                                                      k1249
                                                                                                                                                                                                                                                                                                                                                                      editor.cursor#
                                                                                                                                                                                                                                                                                                                                                                      'mode))))))
                                                                                                                                                                                                                                                                                                                                                   (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                                                                     k1245
                                                                                                                                                                                                                                                                                                                                                     editor.cursor#
                                                                                                                                                                                                                                                                                                                                                     'dy))))))
                                                                                                                                                                                                                                                                                                                                  (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                                                    k1241
                                                                                                                                                                                                                                                                                                                                    editor.cursor#
                                                                                                                                                                                                                                                                                                                                    'dx))))))
                                                                                                                                                                                                                                                                                                                 (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                                   k1237
                                                                                                                                                                                                                                                                                                                   editor.cursor#
                                                                                                                                                                                                                                                                                                                   'ay))))))
                                                                                                                                                                                                                                                                                                (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                                  k1233
                                                                                                                                                                                                                                                                                                  editor.cursor#
                                                                                                                                                                                                                                                                                                  'ax))))))
                                                                                                                                                                                                                                                                               (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                                 k1229
                                                                                                                                                                                                                                                                                 editor.cursor#
                                                                                                                                                                                                                                                                                 'y))))))
                                                                                                                                                                                                                                                              (srfi-99-records-procedural#rtd-accessor
                                                                                                                                                                                                                                                                k1225
                                                                                                                                                                                                                                                                editor.cursor#
                                                                                                                                                                                                                                                                'x))))))
                                                                                                                                                                                                                                             (srfi-99-records-procedural#rtd-predicate
                                                                                                                                                                                                                                               k1221
                                                                                                                                                                                                                                               editor.cursor#)))))))
                                                                                                                                                                                                                          (srfi-209#make-enum-type
                                                                                                                                                                                                                            k1189
                                                                                                                                                                                                                            '(brush select cycle)))))))
                                                                                                                                                                                                         (srfi-99-records-procedural#make-rtd
                                                                                                                                                                                                           k1185
                                                                                                                                                                                                           'cursor
                                                                                                                                                                                                           '#((mutable x)
                                                                                                                                                                                                              (mutable y)
                                                                                                                                                                                                              (mutable ax)
                                                                                                                                                                                                              (mutable ay)
                                                                                                                                                                                                              (mutable dx)
                                                                                                                                                                                                              (mutable dy)
                                                                                                                                                                                                              (mutable mode)
                                                                                                                                                                                                              (mutable tile)
                                                                                                                                                                                                              (mutable actor)
                                                                                                                                                                                                              (mutable area-select)))))))
                                                                                                                                                                                          (chicken.load#load-extension
                                                                                                                                                                                            k1181
                                                                                                                                                                                            'misc.utils
                                                                                                                                                                                            #t
                                                                                                                                                                                            #f)))))
                                                                                                                                                                           (chicken.load#load-extension
                                                                                                                                                                             k1178
                                                                                                                                                                             'engine.tilemap
                                                                                                                                                                             #t
                                                                                                                                                                             #f)))))
                                                                                                                                                            (chicken.load#load-extension
                                                                                                                                                              k1175
                                                                                                                                                              'engine.level
                                                                                                                                                              #t
                                                                                                                                                              #f)))))
                                                                                                                                             (chicken.load#load-extension
                                                                                                                                               k1172
                                                                                                                                               'engine.assets
                                                                                                                                               #t
                                                                                                                                               #f)))))
                                                                                                                              (chicken.load#load-extension
                                                                                                                                k1169
                                                                                                                                'engine.entity
                                                                                                                                #t
                                                                                                                                #f)))))
                                                                                                               (chicken.load#load-extension
                                                                                                                 k1166
                                                                                                                 'engine.graphics
                                                                                                                 #t
                                                                                                                 #f)))))
                                                                                                (chicken.load#load-extension
                                                                                                  k1163
                                                                                                  'engine.input
                                                                                                  #t
                                                                                                  #f)))))
                                                                                 (chicken.load#load-extension
                                                                                   k1160
                                                                                   'engine.commons
                                                                                   #t
                                                                                   #f)))))
                                                                  (chicken.load#load-extension k1157 'sdl2 #t #f)))))
                                                   (chicken.load#load-extension
                                                     k1154
                                                     'srfi-209
                                                     #t
                                                     #f)))))
                                    (chicken.load#load-extension
                                      k1151
                                      'srfi-99
                                      #t
                                      #f))))))
                   (##core#callunit eval k1148)))))
    (##core#callunit library k1145)))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the equality predicate for strings in R5RS?
Visually impaired? Let me spell it for you (wav file) download WAV