From f4f36ca38155309071be1bf845aed0029e29fd0f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 20 Nov 2014 14:08:30 +0000
Subject: Introduce forkStreamByName.

---
 src/lisp/core.lisp.in | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 025791f2..dece602f 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -113,6 +113,7 @@
 	   "closeFile"
 	   "closeStream"
 	   "eof?"
+	   "forkStreamByName"
 	   "prettyPrint"
 	   "readLine"
 	   "readExpr"
@@ -607,6 +608,10 @@
 (defmacro |eof?| (s)
   `(null (peek-char nil ,s nil nil nil)))
 
+;; Make a new stream object, duplicate of the denotation of argument.
+(defmacro |forkStreamByName| (s)
+  `(make-synonym-stream ,s))
+
 ;; Read a line from the input text file.  Quietly return
 ;; %nothing at end of file.
 (defmacro |readLine| (f)
-- 
cgit v1.2.3