From 530df10f5c30ba226686fcf7dc62824f8c51920a Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Sun, 20 May 2007 11:27:37 +0000
Subject: [PATCH] make -g option SWI compatible

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1884 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/iopreds.c      | 1 -
 changes-5.1.html | 1 +
 pl/utils.yap     | 9 ++++++++-
 3 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index b64e64ae7..2a15c70fc 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2678,7 +2678,6 @@ p_open_mem_read_stream (void)   /* $open_mem_read_stream(+List,-Stream) */
     ti = TailOfTerm(ti);
   }
   nbuf[nchars] = '\0';
-  fprintf(stderr,"nbuf=%s\n",nbuf);
   sno = open_buf_read_stream(nbuf, nchars);
   t = MkStream (sno);
   return (Yap_unify (ARG2, t));
diff --git a/changes-5.1.html b/changes-5.1.html
index 18a1bde25..dc66bf187 100644
--- a/changes-5.1.html
+++ b/changes-5.1.html
@@ -16,6 +16,7 @@
 
 <h2>Yap-5.1.2:</h2>
 <ul>
+<li> FIXED: add . to -g goal (obs from Paulo Moura).</li>
 <li> FIXED: min_list (obs from Angelika, Bernd & Niels).</li>
 <li> FIXED: issues with C-Interface (obs from Trevor Walker).</li>
 <li> FIXED: mktime needs to know if daylight time savings are on
diff --git a/pl/utils.yap b/pl/utils.yap
index 3d69c9ae7..84df5b52a 100644
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -795,7 +795,8 @@ nth_instance(X,Y,Z) :-
 
 '$run_atom_goal'(GA) :-
 	'$current_module'(Module),
-	atom_codes(GA,Gs),
+	atom_codes(GA,Gs0),
+	'$add_dot_to_atom_goal'(Gs0,Gs),
 	charsio:open_mem_read_stream(Gs, Stream),
 	( '$system_catch'(read(Stream, G),Module,_,fail) ->
 	    close(Stream)
@@ -805,6 +806,12 @@ nth_instance(X,Y,Z) :-
 	),
 	'$system_catch'('$query'(once(G), []),Module,Error,user:'$Error'(Error)).
 
+'$add_dot_to_atom_goal'([],[0'.]) :- !.
+'$add_dot_to_atom_goal'([0'.],[0'.]) :- !.
+'$add_dot_to_atom_goal'([C|Gs0],[C|Gs]) :-
+	'$add_dot_to_atom_goal'(Gs0,Gs).
+
+
 prolog_current_frame(Env) :-
 	Env is '$env'.