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/lisp/core.lisp.in | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/lisp/core.lisp.in')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 6b57b73a..303ad074 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -98,6 +98,7 @@
 	   "inputTextFile"
 	   "outputTextFile"
 	   "closeFile"
+	   "closeStream"
 	   "prettyPrint"
 	   "readLine"
 	   "readExpr"
@@ -506,6 +507,9 @@
 (defun |closeFile| (f)
   (close f))
 
+(defmacro |closeStream| (s)
+  `(close ,s))
+
 ;; Read a line from the input text file.  Quietly return
 ;; %nothing at end of file.
 (defmacro |readLine| (f)
-- 
cgit v1.2.3