Mercurial > repos > tabletprog
changeset 108:5099c1a96e3f
Mostly fix clicking on the function name in a funcall expression
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 13 Apr 2013 15:54:53 -0700 |
parents | 152b6cfb98b6 |
children | a647cdad620b |
files | src/editor.tp |
diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/editor.tp Fri Apr 12 19:27:33 2013 -0700 +++ b/src/editor.tp Sat Apr 13 15:54:53 2013 -0700 @@ -26,6 +26,16 @@ //kernel definitions //import: kernel +filter <- :arr pred { + output <- arr slice: 0 0 + each: arr :idx el { + if: (pred: el) { + output push: el + } else: {} + } + output +} + //editor code editFile <- :path { get: path :request { @@ -88,7 +98,7 @@ selectParent: domnode selectQuery: ".selectParent > .funpart" in: (domnode parentNode) symtable <- astnode symbols - syms <- filter: (symtable allSymbols) :sym { + syms <- filter: (symtable allSymbols: (foreign: undefined)) :sym { isLambda: ((symtable find: sym) def) } popInscope: syms onClick: {}