diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix typos

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@287 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-01-10 21:42:29 +00:00
parent 77f57ba928
commit f41a702445
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
library/heaps.yap
View File

@@ -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(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, !. Kb @< Ka, !.
min_of_heap(t(Ka,Da,_,_), _, Ka, Da). min_of_heap(t(Ka,Da,_,_), _, Ka, Da).
min_of_heap(t, t(Kb,Db,_,_), Kb, Db). min_of_heap(t, t(Kb,Db,_,_), Kb, Db).

4
library/system.yap
View File

@@ -289,7 +289,7 @@ win_popen(0, Command, ForReading, Result) :-
exec_command(Command, 0, ForWriting, 2, _, Result), exec_command(Command, 0, ForWriting, 2, _, Result),
close(ForWriting). close(ForWriting).
win_popen(1, Command, ForWriting, Result) :- win_popen(1, Command, ForWriting, Result) :-
open_pipe_streams(Stream, ForWriting), open_pipe_streams(ForReading, ForWriting),
exec_command(Command, ForReading, 1, 2, _, Result), exec_command(Command, ForReading, 1, 2, _, Result),
close(ForReading). close(ForReading).
@@ -358,7 +358,7 @@ get_shell0(Shell) :-
getenv('SHELL', Shell), !. getenv('SHELL', Shell), !.
get_shell0(Shell) :- get_shell0(Shell) :-
win, !, win, !,
getenv('COMSPEC', Shell0). getenv('COMSPEC', Shell).
get_shell0('/bin/sh'). get_shell0('/bin/sh').
get_shell(Shell) :- get_shell(Shell) :-