Fix compilation of SWI-Prolog proprietary directives when decorating …

…the generated code with source location data

RELEASE_NOTES.md

@@ -44,6 +44,9 @@ automatically call `logtalk_make/0` when calling `make/0`.
 * IMPROVED: Faster implementation of the internal '$lgt_predicate_property'/2
 predicate for SWI-Prolog.
 
+* FIXED: Compilation of SWI-Prolog proprietary directives when decorating the
+generated code with source location data.
+
 Logtalk compiler and runtime
 ----------------------------
 

adapters/swi.pl

@@ -1,7 +1,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  Adapter file for SWI Prolog 6.6.0 and later versions
-%  Last updated on October 22, 2016
+%  Last updated on October 25, 2016
 %
 %  This file is part of Logtalk <http://logtalk.org/>  
 %  Copyright 1998-2016 Paulo Moura <pmoura@logtalk.org>
@@ -933,15 +933,15 @@
 	!,
 	write_canonical(Stream, Term), write(Stream, '.\n').
 
-'$lgt_write_compiled_term'(Stream, Term, user, File, Line) :-
-	!,
-	write_canonical(Stream, '$source_location'(File,Line):Term), write(Stream, '.\n').
-
 '$lgt_write_compiled_term'(Stream, (:- Directive), _, _, _) :-
 	% to cope with {(:- Directive)} entity terms
 	!,
 	write_canonical(Stream, (:- Directive)), write(Stream, '.\n').
 
+'$lgt_write_compiled_term'(Stream, Term, user, File, Line) :-
+	!,
+	write_canonical(Stream, '$source_location'(File,Line):Term), write(Stream, '.\n').
+
 '$lgt_write_compiled_term'(Stream, Term, aux, _, _) :-
 	!,
 	(	Term = (Head :- _) ->