Implement a very basic ⎕RUN command which runs the code from a file

1 files changed, 8 insertions, 2 deletions

diff --git a/functions.c b/functions.c
index 7266f28..55a72ad 100644
--- a/functions.c
+++ b/functions.c
@@ -147,13 +147,19 @@ runfunc(Function f, Array *left, Array *right)
 			return dyadfunctiondefs[f.code](left, right);
 		else
 			return monadfunctiondefs[f.code](right);
-	}else{
+	}else if(f.type == FunctypeOp){
 		/* TODO assumes prim op, not dop */
 		if(f.operator.dyadic)
 			return dyadoperatordefs[f.operator.code](f.operator.left, f.operator.right, left, right);
 		else
 			return monadoperatordefs[f.operator.code](f.operator.left, left, right);
-	}
+	}else if(f.type == FunctypeQuad){
+		if(left)
+			return f.quad->dyadfn(left, right);
+		else
+			return f.quad->monadfn(right);
+	}else
+		return nil;
 }
 
 Array *