From f41a70244580228b613dd506c8a93d21da963627 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 10 Jan 2002 21:42:29 +0000
Subject: [PATCH] fix typos
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@287 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
library/heaps.yap | 2 +-
library/system.yap | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/library/heaps.yap b/library/heaps.yap
index d7e7669e7..5a2e94e43 100644
--- a/library/heaps.yap
+++ b/library/heaps.yap
@@ -223,7 +223,7 @@ min_of_heap(t(_,_,t(Key1,Datum1,Lson,Rson)), Key1, Datum1, Key2, Datum2) :-
min_of_heap(Lson, Rson, Key2, Datum2).
-min_of_heap(t(Ka,Da,_,_), t(Kb,Db,_,_), Kb, Db) :-
+min_of_heap(t(Ka,_Da,_,_), t(Kb,Db,_,_), Kb, Db) :-
Kb @< Ka, !.
min_of_heap(t(Ka,Da,_,_), _, Ka, Da).
min_of_heap(t, t(Kb,Db,_,_), Kb, Db).
diff --git a/library/system.yap b/library/system.yap
index def416df4..156470324 100644
--- a/library/system.yap
+++ b/library/system.yap
@@ -289,7 +289,7 @@ win_popen(0, Command, ForReading, Result) :-
exec_command(Command, 0, ForWriting, 2, _, Result),
close(ForWriting).
win_popen(1, Command, ForWriting, Result) :-
- open_pipe_streams(Stream, ForWriting),
+ open_pipe_streams(ForReading, ForWriting),
exec_command(Command, ForReading, 1, 2, _, Result),
close(ForReading).
@@ -358,7 +358,7 @@ get_shell0(Shell) :-
getenv('SHELL', Shell), !.
get_shell0(Shell) :-
win, !,
- getenv('COMSPEC', Shell0).
+ getenv('COMSPEC', Shell).
get_shell0('/bin/sh').
get_shell(Shell) :-