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/algebra/net.spad.pamphlet | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src/algebra/net.spad.pamphlet')
diff --git a/src/algebra/net.spad.pamphlet b/src/algebra/net.spad.pamphlet
index 29b5e704..590cf345 100644
--- a/src/algebra/net.spad.pamphlet
+++ b/src/algebra/net.spad.pamphlet
@@ -219,7 +219,7 @@ InputBinaryFile(): Public == Private where
error "file is not open"
close! ifile ==
if isOpen? ifile then
- rep(ifile).stream := closeFile(rep(ifile).stream)$Lisp
+ rep(ifile).stream := closeStream(rep(ifile).stream)$Foreign(Builtin)
rep(ifile).eof := true
ifile
position ifile ==
@@ -268,7 +268,7 @@ OutputBinaryFile(): Public == Private where
error "file is not open"
close! ifile ==
if isOpen? ifile then
- rep(ifile).stream := closeFile(rep(ifile).stream)$Lisp
+ rep(ifile).stream := closeStream(rep(ifile).stream)$Foreign(Builtin)
ifile
coerce(ifile: %): OutputForm ==
rep(ifile).filename::OutputForm
--
cgit v1.2.3