whoooooops, broke that
This commit is contained in:
parent
7caf47ae37
commit
bee38a4168
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue