===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/print.c,v
retrieving revision 1.23
retrieving revision 1.26
diff -u -p -r1.23 -r1.26
--- OpenXM_contrib2/asir2000/builtin/print.c	2007/11/07 19:26:17	1.23
+++ OpenXM_contrib2/asir2000/builtin/print.c	2015/03/15 19:31:30	1.26
@@ -45,11 +45,13 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.22 2006/09/26 05:35:25 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.25 2011/06/16 08:17:15 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
 
+void Psprintf(NODE,STRING *);
+
 void Pprintf();
 void Pprint();
 void Pquotetolist();
@@ -81,10 +83,7 @@ void Pprintf(NODE arg,pointer *rp)
 			print_to_wfep(s);
 		}else {
 			printexpr(CO,s);
-			/* XXX : if ox_asir, we have to fflush always */
-			if ( I_am_server ) {
-				fflush(asir_out);
-			}
+			fflush(asir_out);
 		}
 	}
 	*rp = 0;
@@ -168,7 +167,7 @@ void fnodetotree(FNODE f,LIST *rp)
 
 	if ( !f ) {
 		MKSTR(head,"internal");
-		n = mknode(2,head,0);
+		n = mknode(2,head,NULLP);
 		MKLIST(*rp,n);
 		return;
 	}