Add rule for monadic function application

1 files changed, 6 insertions, 2 deletions

diff --git a/apl9.h b/apl9.h
index e487b63..41ad5e2 100644
--- a/apl9.h
+++ b/apl9.h
@@ -24,6 +24,7 @@ typedef enum
 	AtypeArray
 } arrayDataType;
 
+
 /* Data types */
 typedef struct Array Array;
 typedef struct Datum Datum;
@@ -50,6 +51,8 @@ struct Datum
 	};
 };
 
+typedef Array* (*fnmonad)(Array*);
+
 /* Function prototypes for the different source files */
 /* print.c */
 Rune *ppdatum(Datum);
@@ -80,7 +83,8 @@ Array *fnCatenateFirst(Array *, Array *);
 /* Global variables */
 extern Rune *errormsg; /* eval.c */
 extern int datasizes[]; /* array.c */
-extern Rune primfuncnames[]; /* lexer.c */
+extern Rune primfuncnames[]; /* function.c */
 extern Rune primmonopnames[]; /* lexer.c */
 extern Rune primdyadopnames[]; /* lexer.c */
-extern Rune primhybridnames[]; /* lexer.c */
\ No newline at end of file
+extern Rune primhybridnames[]; /* lexer.c */
+extern fnmonad monadfunctiondefs[]; /* function.c */
\ No newline at end of file