From cbc6210e240c8a29cb3fac075f405cb41d3aca05 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 11 Dec 1998 23:13:29 +0000
Subject: [PATCH] fixed assignstream example

---
 docs/linuxex/ex38.pp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/docs/linuxex/ex38.pp b/docs/linuxex/ex38.pp
index ba91bd5899..09b990d55b 100644
--- a/docs/linuxex/ex38.pp
+++ b/docs/linuxex/ex38.pp
@@ -12,8 +12,12 @@ begin
   if not (paramstr(1)='-son') then
     begin
     Writeln ('Calling son');
-    Assignstream (Si,So,'/home/michael/fpk/rtl/linux/ex38a -son');
-    if linuxerror<>0 then writeln ('AssignStream failed !');
+    Assignstream (Si,So,'./ex38 -son');
+    if linuxerror<>0 then 
+      begin
+      writeln ('AssignStream failed !');
+      halt(1);
+      end;
     Writeln ('Speaking to son');
     For i:=1 to 10 do 
       begin
@@ -42,6 +46,6 @@ begin
       else 
          writeln ('Who are you ?');
       end;
-//    close (output);
+    close (output);
     end 
 end.