From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 9 Feb 1995 14:37:18 +0000 (+0000)
Subject: Removed .depend from cvs. Removed function fml_mk_list.
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=4ccb33b091909c5105ea7a42e476f5679c954162;p=egate.git

Removed .depend from cvs. Removed function fml_mk_list.
---

diff --git a/fml/fmlmem.c b/fml/fmlmem.c
index 5ec4a7b..ce82b69 100644
--- a/fml/fmlmem.c
+++ b/fml/fmlmem.c
@@ -2,7 +2,10 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmlmem.c,v $
- * Revision 1.4  1995/02/09 14:33:37  adam
+ * Revision 1.5  1995/02/09 14:37:18  adam
+ * Removed .depend from cvs. Removed function fml_mk_list.
+ *
+ * Revision 1.4  1995/02/09  14:33:37  adam
  * Split source fml.c and define relevant build-in functions in separate
  * files. New operators mult, div, not, llen implemented.
  *
@@ -127,21 +130,6 @@ struct fml_atom *fml_atom_alloc (Fml fml, char *str)
     return a0;
 }
 
-struct fml_node *fml_mk_list (Fml fml, struct fml_node *fn)
-{
-    if (fn->is_atom)
-    {
-        struct fml_node *fn2;
-
-        fn2 = fml_node_alloc (fml);
-        fn2->is_atom = 1;
-        fn2->p[0] = fn->p[0];
-        return fn2;
-    }
-    else
-        return fn->p[0];
-}
-
 int fml_atom_str (struct fml_atom *a, char *str)
 {
     int len = 0;
diff --git a/fml/fmlp.h b/fml/fmlp.h
index 4a77ccf..6a2552e 100644
--- a/fml/fmlp.h
+++ b/fml/fmlp.h
@@ -2,7 +2,10 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmlp.h,v $
- * Revision 1.4  1995/02/09 14:33:37  adam
+ * Revision 1.5  1995/02/09 14:37:19  adam
+ * Removed .depend from cvs. Removed function fml_mk_list.
+ *
+ * Revision 1.4  1995/02/09  14:33:37  adam
  * Split source fml.c and define relevant build-in functions in separate
  * files. New operators mult, div, not, llen implemented.
  *
@@ -42,7 +45,6 @@ struct fml_atom *fml_atom_alloc (Fml fml, char *str);
 int fml_atom_str (struct fml_atom *a, char *str);
 void fml_atom_strx (struct fml_atom *a, char *str, int max);
 int fml_atom_val (struct fml_atom *a);
-struct fml_node *fml_mk_list (Fml fml, struct fml_node *fn);
 void fml_node_delete (Fml fml, struct fml_node *fn);
 struct fml_node *fml_node_copy (Fml fml, struct fml_node *fn);
 struct fml_node *fml_mk_node_val (Fml fml, int val);