From 6f1281849ca4f34650bcda262775ed21f2af3a36 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sun, 14 Mar 2010 09:30:24 +0000
Subject: [PATCH] SWI compatibility for term_expansion

---
 pl/boot.yap | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/pl/boot.yap b/pl/boot.yap
index 96c0aa5aa..2395cd5cd 100755
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -401,6 +401,8 @@ true :- true.
 	 ( '$notrace'(M:G) -> true ; format(user_error,':- ~w:~w failed.~n',[M,G]) ),
 	 '$enter_system_mode'.
 
+ '$continue_with_command'(Where,V,'$stream_position'(C,_P,A1,A2,A3),'$source_location'(_F,L):G,Source) :- !,
+	  '$continue_with_command'(Where,V,'$stream_position'(C,L,A1,A2,A3),G,Source).
  '$continue_with_command'(reconsult,V,Pos,G,Source) :-
 	 '$go_compile_clause'(G,V,Pos,5,Source),
 	 fail.