whoooooops, broke that

This commit is contained in:
Jeremy Penner 2021-08-16 22:14:48 -04:00
parent 7caf47ae37
commit bee38a4168
2 changed files with 2 additions and 2 deletions

View file

@ -31,7 +31,7 @@
(fn wait-for-key ()
(FlushEvents keyDownMask 0)
(while (not (GetOSEvent keyDownMask (far-ref event-buffer)))))
(while (not (GetNextEvent keyDownMask (far-ref event-buffer)))))
(const screen-addr 0xe12000)
(const screen-size 0x9d00)

View file

@ -173,7 +173,7 @@
ropgen (self:push-opgen rhs)
pre (when ropgen.setup (ropgen.setup))
lopgen (self:expr-opgen lhs)
left (when lopgen.setup (lopgen.setup) (if ropgen.hi :long :word))
left (when lopgen.setup (lopgen.setup))
truebranch (if ropgen.cleanup (.. :-if-true-cleanup- depth) truelabel)
falsebranch (if ropgen.cleanup (.. :-if-false-cleanup- depth) falselabel)
hibranch (when lopgen.hi