# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1365893693 25200
# Node ID 5099c1a96e3f6cc2449aa890b208e4e75ef6ff1b
# Parent  152b6cfb98b6668bb50720a8680de364ea13c792
Mostly fix clicking on the function name in a funcall expression

diff -r 152b6cfb98b6 -r 5099c1a96e3f src/editor.tp
--- 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: {}