Add compilation of named function statements

src/targets/llvm.js

@@ -236,8 +236,8 @@ function compileBlock (ctx, block, parentFn, preStatementsCb) {
   for (var i = 0; i < statements.length; i++) {
     var stmt = statements[i]
     stmt.compile(ctx, blockCtx)
-  }
-}
+  }//for
+}//compileBlock
 
 // Look up the type and Slots for a given name; begins search from the passed
 // block-context. Returns a 2-tuple of Slots and Type.
@@ -1023,6 +1023,28 @@ AST.Function.prototype.getAnonymousNativeFunction = function (ctx) {
   return fn
 }
 
+AST.Function.prototype.compile = function(ctx, blockCtx) {
+  var instance = this.type,
+      type     = unboxInstanceType(instance, types.Function)
+  if (type.parentMultiType) {
+    throw new ICE('Compilation of multi-functions not yet implemented')
+  } else {
+    if (typeof this.name !== 'string') {
+      throw new ICE('Missing name of Function statement')
+    }
+    var name = type.getNativePrefix()+this.name
+    // Setup the native function
+    var fn = new NativeFunction(name, type.args, type.ret)
+    type.setNativeFunction(fn)
+    // Compile the native function with our block
+    genericCompileFunction(ctx, fn, this)
+    // Set the linkage of the function to private
+    LLVM.Library.LLVMSetLinkage(fn.getPtr(), LLVM.Library.LLVMPrivateLinkage)
+    // Add this to the slots
+    blockCtx.slots.buildSet(ctx, this.name, fn.getPtr())
+  }
+}
+
 AST.Function.prototype.compileToValue = function (ctx, blockCtx) {
   var self = this,
       fn   = this.getAnonymousNativeFunction(ctx)

src/typesystem.js

@@ -790,6 +790,11 @@ TypeSystem.prototype.visitMultiFunction = function (node, scope, multiNode) {
   }
 }
 
+TypeSystem.prototype.visitNamedFunction = function (node, scope) {
+  this.visitFunction(node, scope)
+  scope.setLocal(node.name, node.type)
+}
+
 TypeSystem.prototype.visitFunctionStatement = function (node, scope, searchInParent) {
   var name = node.name
   // Now look up the parent `multi` in the containing block
@@ -802,7 +807,7 @@ TypeSystem.prototype.visitFunctionStatement = function (node, scope, searchInPar
   if (multiNode) {
     this.visitMultiFunction(node, scope, multiNode)
   } else {
-    throw new TypeError('Failed to find associated multi statement')
+    this.visitNamedFunction(node, scope)
   }
 }