evaluator: cache native function resolution

evaluator/src/main/kotlin/gay/pizza/pork/evaluator/FunctionContext.kt

@@ -3,18 +3,25 @@ package gay.pizza.pork.evaluator
 import gay.pizza.pork.ast.FunctionDefinition
 
 class FunctionContext(val compilationUnitContext: CompilationUnitContext, val node: FunctionDefinition) : CallableFunction {
-  override fun call(arguments: Arguments): Any {
+  private fun resolveMaybeNative(): CallableFunction? = if (node.native == null) {
-    val scope = compilationUnitContext.internalScope.fork()
+    null
-    for ((index, argumentSymbol) in node.arguments.withIndex()) {
+  } else {
-      scope.define(argumentSymbol.id, arguments.values[index])
-    }
-
-    if (node.native != null) {
     val native = node.native!!
     val nativeFunctionProvider =
       compilationUnitContext.evaluator.nativeFunctionProvider(native.form.id)
-      val nativeFunction = nativeFunctionProvider.provideNativeFunction(native.definition.text)
+    nativeFunctionProvider.provideNativeFunction(native.definition.text)
-      return nativeFunction.call(arguments)
+  }
+
+  private val nativeCached by lazy { resolveMaybeNative() }
+
+  override fun call(arguments: Arguments): Any {
+    if (nativeCached != null) {
+      return nativeCached!!.call(arguments)
+    }
+
+    val scope = compilationUnitContext.internalScope.fork()
+    for ((index, argumentSymbol) in node.arguments.withIndex()) {
+      scope.define(argumentSymbol.id, arguments.values[index])
     }
 
     if (node.block == null) {

examples/java-speed.pork

@@ -0,0 +1,10 @@
+import java java.lang.Math
+import java java.lang.System
+import java java.io.PrintStream
+
+export func main() {
+  while true {
+    let pi = java_lang_Math_PI_get()
+    println(pi)
+  }
+}