projects
/
egate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c06ad20
)
Bug fix in fml_sub0.
author
Adam Dickmeiss
<adam@indexdata.dk>
Tue, 21 Feb 1995 17:46:08 +0000
(17:46 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Tue, 21 Feb 1995 17:46:08 +0000
(17:46 +0000)
fml/fml.c
patch
|
blob
|
history
diff --git
a/fml/fml.c
b/fml/fml.c
index
74caaee
..
4eabb90
100644
(file)
--- a/
fml/fml.c
+++ b/
fml/fml.c
@@
-2,7
+2,10
@@
* FML interpreter. Europagate, 1995
*
* $Log: fml.c,v $
* 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
* 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);
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);
if (fn->p[1] && token.kind != '\0')
{
fn1 = fml_node_alloc (fml);