Mercurial > repos > tabletprog
diff src/editor.tp @ 31:668f533e5284
Add initial version of C backend
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 07 Jul 2012 16:48:36 -0700 |
parents | 608eb70fe261 |
children | 648659961e0e |
line wrap: on
line diff
--- a/src/editor.tp Thu Apr 19 19:20:21 2012 -0700 +++ b/src/editor.tp Sat Jul 07 16:48:36 2012 -0700 @@ -24,27 +24,7 @@ } //kernel definitions -true <- #{ - if:else <- :self trueblock :elseblock { - trueblock: - } -} - -false <- #{ - if:else <- :self trueblock :elseblock { - elseblock: - } -} - -filter <- :arr pred { - output <- arr slice: 0 0 - each: arr :idx el { - if: (pred: el) { - output push: el - } else: {} - } - output -} +import: kernel //editor code editFile <- :path {