add new function @fact

1 files changed, 2 insertions, 0 deletions

diff --git a/src/gram.y b/src/gram.y
index 84a5cd3..c5f73b3 100755
--- a/src/gram.y
+++ b/src/gram.y
@@ -376,6 +376,7 @@ token K_WHITE
 %token K_SET8BIT
 %token K_ASCII
 %token K_CHR
+%token K_FACT
 
 %right ';'
 %left '?' ':'
@@ -969,6 +970,7 @@ term:     var                     { $$ = new_var(O_VAR, $1); }
         | '@' K_CYAN              { $$ = new(CYAN, ENULL, ENULL); }
         | '@' K_WHITE             { $$ = new(WHITE, ENULL, ENULL); }
 */
+        | '@' K_FACT '(' e ')'     { $$ = new(FACT, $4, ENULL); }
         ;
 
 /* expressions */