Mercurial > repos > tabletprog

diff modules/llcompile.tp @ 356:3b023e5a0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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" }
 					}
 				}