cl: compile ssa.Function bugfix

cl/compile.go

@@ -602,15 +602,15 @@ func (p *context) compileValue(b llssa.Builder, v ssa.Value) llssa.Expr {
 			}
 		}
 	case *ssa.Function:
-		fn := p.compileFunc(p.pkg, p.goTyps, v, true)
-		return fn.Expr
-		/*
-			fn, ftype := p.funcOf(v)
-			if ftype >= llgoInstrBase {
-				panic("can't use llgo instruction as a value")
-			}
+		if v.Blocks != nil {
+			fn := p.compileFunc(p.pkg, p.goTyps, v, true)
 			return fn.Expr
-		*/
+		}
+		fn, ftype := p.funcOf(v)
+		if ftype >= llgoInstrBase {
+			panic("can't use llgo instruction as a value")
+		}
+		return fn.Expr
 	case *ssa.Global:
 		g := p.varOf(v)
 		return g.Expr