From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 21 Feb 1995 17:46:08 +0000 (+0000)
Subject: Bug fix in fml_sub0.
X-Git-Url: http://git.indexdata.com/?a=commitdiff_plain;ds=sidebyside;h=380f18375a94274eeeca115d3a7eeec1cd035b8c;p=egate.git

Bug fix in fml_sub0.
---

diff --git a/fml/fml.c b/fml/fml.c
index 74caaee..4eabb90 100644
--- a/fml/fml.c
+++ b/fml/fml.c
@@ -2,7 +2,10 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fml.c,v $
- * Revision 1.9  1995/02/21 14:00:03  adam
+ * Revision 1.10  1995/02/21 17:46:08  adam
+ * Bug fix in fml_sub0.
+ *
+ * Revision 1.9  1995/02/21  14:00:03  adam
  * Minor changes.
  *
  * Revision 1.8  1995/02/10  18:15:52  adam
@@ -537,6 +540,11 @@ static struct fml_node *fml_sub0 (Fml fml, struct fml_node *list)
     fml_init_token (&token, fml);
     fml_cmd_lex (&list, &token);
     fn1 = fn = fml_sub1 (fml, &list, &token);
+    if (!fn)
+    {
+        fml_del_token (&token, fml);
+        return fn;
+    }
     if (fn->p[1] && token.kind != '\0')
     {
         fn1 = fml_node_alloc (fml);