post-optimisation CPS-converted buggy code added by Reid 10 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)))