Bug fix in fml_exec_space.

diff --git a/fml/fml.c b/fml/fml.c
index cf95ce7..4725419 100644 (file)
--- a/fml/fml.c
+++ b/fml/fml.c
@@ -2,7 +2,10 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fml.c,v $
- * Revision 1.11  1995/02/22 08:50:49  adam
+ * 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 +309,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;
 }