Nodes are freed now. Many bugs fixed.

[egate.git] / fml / fmltest.c

diff --git a/fml/fmltest.c b/fml/fmltest.c
index 1947ba2..6c07b3a 100644 (file)
--- a/fml/fmltest.c
+++ b/fml/fmltest.c
@@ -2,7 +2,10 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmltest.c,v $
- * Revision 1.2  1995/02/07 16:09:24  adam
+ * Revision 1.3  1995/02/09 13:07:15  adam
+ * Nodes are freed now. Many bugs fixed.
+ *
+ * Revision 1.2  1995/02/07  16:09:24  adam
  * The \ character is no longer INCLUDED when terminating a token.
  * Major changes in tokenization routines. Bug fixes in expressions
  * with lists (fml_sub0).
@@ -35,7 +38,9 @@ int main (int argc, char **argv)
         if (**argv == '-')
         {
             if (argv[0][1] == 'd')
-                fml->debug = 1;
+                fml->debug |= 1;
+            else if (argv[0][1] == 'm')
+                fml->debug |= 2;
             else
             {
                 fprintf (stderr, "uknown option `%s'\n", *argv);