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

fix singleton warning.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@47 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-05-29 15:10:43 +00:00
parent 8c907c498d
commit 130e2b8bd1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/system.yap
View File

@ -312,8 +312,8 @@ get_shell(Shell) :-
getenv('SHELL', Shell0), !, getenv('SHELL', Shell0), !,
atom_codes(Shell0, Codes), atom_codes(Shell0, Codes),
append(Codes," -c ", Shell). append(Codes," -c ", Shell).
get_shell(COMSPEC) :- get_shell(Shell) :-
getenv('COMPSEC', Shell), getenv('COMPSEC', Shell0),
atom_codes(Shell0, Codes), atom_codes(Shell0, Codes),
append(Codes," /c ", Shell). append(Codes," /c ", Shell).