From d8f2f035becdea75157e16187545693f4cafeec3 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 12 Jun 2002 16:46:05 +0000
Subject: [PATCH] fix read_vars

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@528 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/yio.yap | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/pl/yio.yap b/pl/yio.yap
index 6900b7701..26070a79d 100644
--- a/pl/yio.yap
+++ b/pl/yio.yap
@@ -315,7 +315,7 @@ told :- current_output(Stream), '$close'(Stream), set_output(user).
 /* Term IO	*/
 
 read(T) :-
-	'$read'(false,T,V,Err),
+	'$read'(false,T,_,Err),
 	(nonvar(Err) ->
 	    '$print_message'(error,Err), fail
 	    ;
@@ -329,8 +329,6 @@ read(Stream,T) :-
 	    ;
 	    true
 	).
-	'$read'(false,T,_,Stream).
-
 
 read_term(T, Options) :-
 	'$check_io_opts'(Options,read_term(T, Options)),
@@ -349,7 +347,7 @@ read_term(T, Options) :-
 read_term(Stream, T, Options) :-
 	'$check_io_opts'(Options,read_term(T, Options)),
 	'$preprocess_read_terms_options'(Options),
-	'$read_vars'(Strem,T,VL),
+	'$read_vars'(Stream,T,VL),
 	'$postprocess_read_terms_options'(Options, T, VL).
 
 %