From a375e36418e10e7ba33fe894a44736d4983647e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ren=C3=A9=20Jansen?= <rvjansen@xs4all.nl>
Date: Tue, 24 Dec 2024 22:07:29 +0100
Subject: [PATCH] comment and doc

---
 interpreter/rxvmintp.c      |  8 --------
 lib/rxfnsb/rexx/fileio.rexx | 15 +++++++++------
 2 files changed, 9 insertions(+), 14 deletions(-)

diff --git a/interpreter/rxvmintp.c b/interpreter/rxvmintp.c
index 1b8cec3c3..239b396f8 100644
--- a/interpreter/rxvmintp.c
+++ b/interpreter/rxvmintp.c
@@ -834,14 +834,6 @@ START_OF_INSTRUCTIONS
 #endif
             }
             DISPATCH
-
-            /* String Say - Deprecated */
-            /* START_INSTRUCTION(SSAY_REG) CALC_DISPATCH(1) */
-            /*     DEBUG("TRACE - SSAY (DEPRICATED) R%lu\n", REG_IDX(1)); */
-            /*     mprintf("%.*s", (int) op1R->string_length, op1R->string_value); */
-            /*     DISPATCH */
-
-            /* Say - Print string value of register as a line */
 	      
         START_INSTRUCTION(SAY_REG) CALC_DISPATCH(1)
             DEBUG("TRACE - SAY R%lu\n", REG_IDX(1));
diff --git a/lib/rxfnsb/rexx/fileio.rexx b/lib/rxfnsb/rexx/fileio.rexx
index 075361ea7..e95476623 100644
--- a/lib/rxfnsb/rexx/fileio.rexx
+++ b/lib/rxfnsb/rexx/fileio.rexx
@@ -7,17 +7,20 @@ import _rxsysb
 
 /* REXX Lineout BIF */
 lineout: procedure = .int
-    arg fname = .string, line = .string
+    arg fname = .string, line = ""
 
     if ?line then do
         /* line specified - open file */
         nl = '0a'x
 
-      /* if length(fname)=0 then do */
-      /* 	/\* no file specified, use stdout *\/ */
-      /* 	assembler sayx line */
-      /* 	return 0 */
-      /* end */
+      say '----> in lineout before'
+      if length(fname)=0 then do
+	/* no file specified, use stdout */
+	assembler sayx line
+	say '----> in lineout before return'
+	return 0
+      end
+      say '----> in lineout after sayx'
       
       fileid = _open(fname, "w")
       if fileid = 0 then say "ERROR lineout() file" fname "could not open"