X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=fml%2Ffml.c;h=c80c3bfdbda83a02ac6f0734f6ef71b6e14a23f7;hb=8467171ebdb5f018740de8d82149c8ccc53d2815;hp=cf95ce7d89eecad1d30ff070294f66331c26ea01;hpb=43a8f9005c81e2d16940d07482c10f653dec85dc;p=egate.git

diff --git a/fml/fml.c b/fml/fml.c
index cf95ce7..c80c3bf 100644
--- a/fml/fml.c
+++ b/fml/fml.c
@@ -2,7 +2,13 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fml.c,v $
- * Revision 1.11  1995/02/22 08:50:49  adam
+ * Revision 1.14  1995/02/23 08:32:04  adam
+ * Changed header.
+ *
+ * Revision 1.12  1995/02/22  15:20:13  adam
+ * Bug fix in fml_exec_space.
+ *
+ * Revision 1.11  1995/02/22  08:50:49  adam
  * Definition of CPP changed. Output function can be customized.
  *
  * Revision 1.10  1995/02/21  17:46:08  adam
@@ -306,9 +312,10 @@ static struct fml_node *fml_exec_space (Fml fml, struct fml_node **lp,
                                         struct token *tp)
 {
     fml_cmd_lex (lp, tp);
-    if (fml->debug & 1)
-        putchar ('_');
+    if (fml->debug & 1) 
+        (*fml->write_func) ('_');
     else
+        (*fml->write_func) (' ');
         putchar (' ');
     return NULL;
 }