Mercurial > repos > tabletprog
diff modules/llcompile.tp @ 356:3b023e5a0b42
llcompile almost working well enough for fib sample
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 15 Apr 2015 23:03:24 -0700 |
parents | a6cdcc1b1c02 |
children | f237d0cae58b |
line wrap: on
line diff
--- a/modules/llcompile.tp Wed Apr 15 21:14:44 2015 -0700 +++ b/modules/llcompile.tp Wed Apr 15 23:03:24 2015 -0700 @@ -221,7 +221,7 @@ _compileExpr: expr syms: syms ilfun: ilf dest: asn } block <- ilf popBlock - ilf add: (il skipIf: (il neq) block) + ilf add: (il skipIf: (il eq) block) dest value: :d { d } none: { _compileError: "Something went wrong" } } } @@ -273,7 +273,7 @@ _compileExpr: expr syms: syms ilfun: ilf dest: (option none) } elseblock <- ilf popBlock - ilf add: (il skipIf: (il neq) block else: elseblock) + ilf add: (il skipIf: (il eq) block else: elseblock) dest value: :d { d } none: { _compileError: "Something went wrong" } } }