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: {}