From c220d4d9a44a3828d96e55b1b1a0756d3acea9fe Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 29 May 2011 02:28:09 +0000
Subject: 	* interp/sys-utility.boot (displayTextFile): New. 	*
 interp/i-syscmd.boot (summary): Use it. 	(copyright): Likewise. 	*
 algebra/net.spad.pamphlet: Replace closeFile with closeStream. 	*
 boot/translator.boot: Likewise. 	* interp/as.boot: Likewise. 	*
 interp/ax.boot: Likewise. 	* interp/br-saturn.boot: Likewise. 	*
 interp/br-search.boot: Likewise.

---
 src/interp/as.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/as.boot')

diff --git a/src/interp/as.boot b/src/interp/as.boot
index 42939edb..c7533f8b 100644
--- a/src/interp/as.boot
+++ b/src/interp/as.boot
@@ -46,7 +46,7 @@ asList() ==
   OBEY '"ls as/*.asy > temp.text"
   instream := inputTextFile '"temp.text"
   lines := [line := readLine instream while line ~= %nothing]
-  closeFile instream
+  closeStream instream
   lines
 
 asAll lines ==
@@ -429,7 +429,7 @@ asytran fn ==
     asytranDeclaration(d,'(top),nil,false)
     if null name then hohohoho()
     tableValue($docHash,name) := $docHashLocal
-  closeFile inStream
+  closeStream inStream
   'done
 
 mkNiladics u ==
-- 
cgit v1.2.3