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)))