SpindleyQ/honeylisp
1
1
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

whoooooops, broke that

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
neutgs/init.fnl
View file

@ -31,7 +31,7 @@
(fn wait-for-key () (fn wait-for-key ()
(FlushEvents keyDownMask 0) (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-addr 0xe12000)
(const screen-size 0x9d00) (const screen-size 0x9d00)

2
ssc/init.fnl
View file

@ -173,7 +173,7 @@
ropgen (self:push-opgen rhs) ropgen (self:push-opgen rhs)
pre (when ropgen.setup (ropgen.setup)) pre (when ropgen.setup (ropgen.setup))
lopgen (self:expr-opgen lhs) 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) truebranch (if ropgen.cleanup (.. :-if-true-cleanup- depth) truelabel)
falsebranch (if ropgen.cleanup (.. :-if-false-cleanup- depth) falselabel) falsebranch (if ropgen.cleanup (.. :-if-false-cleanup- depth) falselabel)
hibranch (when lopgen.hi hibranch (when lopgen.hi