From 6469a0d464822353324ae3308f3e22d261c53cd7 Mon Sep 17 00:00:00 2001
From: ubu32 <vitor@ubuntu.(none)>
Date: Mon, 14 Feb 2011 11:46:27 -0800
Subject: [PATCH] add temporary definitions.

---
 pl/boot.yap | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/pl/boot.yap b/pl/boot.yap
index 67202c59a..28481e6b8 100755
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -1439,6 +1439,10 @@ flush_output(Stream) :-
 ttyflush :-
 	swi_ttyflush.
 
+current_input(Stream) :-
+	swi_current_input(Stream).
+current_output(Stream) :-
+	swi_current_output(Stream).
 set_input(Stream) :-
 	swi_set_input(Stream).
 set_output(Stream) :-