ignore single line comments after end token read

src/prolog/examples/domain.pl

@@ -4,8 +4,8 @@ https://sicstus.sics.se/sicstus/docs/3.7.1/html/sicstus_17.html
 
 :- module(domain, [domain/2]).
 
-:- use_module(library(atts)).
-:- use_module(library(ordsets), [
+:- use_module('src/prolog/lib/atts').
+:- use_module('src/prolog/lib/ordsets', [
         ord_intersection/3,
         ord_intersect/2,
         list_to_ord_set/2

src/prolog/examples/expert_system.pl

@@ -1,5 +1,5 @@
-:- use_module(library(dcgs)).
-:- use_module(library(reif)).
+:- use_module('src/prolog/lib/dcgs').
+:- use_module('src/prolog/lib/reif').
 
 animals([animal(dog, [is_true('has fur'), is_true('says woof')]),
          animal(cat, [is_true('has fur'), is_true('says meow')]),

src/prolog/examples/minatotask.pl

@@ -60,9 +60,9 @@
 
 :- module(zdd, [variables_set_zdd/2]).
 
-:- use_module(library(atts)).
-:- use_module(library(dcgs)).
-:- use_module(library(lists)).
+:- use_module('src/prolog/lib/atts').
+:- use_module('src/prolog/lib/dcgs').
+:- use_module('src/prolog/lib/lists').
 
 :- attribute zdd_vs/2.
 

src/prolog/examples/plres.pl

@@ -29,9 +29,9 @@
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
 
-:- use_module(library(dcgs)).
-:- use_module(library(dif)).
-:- use_module(library(lists)).
+:- use_module('src/prolog/lib/dcgs').
+:- use_module('src/prolog/lib/dif').
+:- use_module('src/prolog/lib/lists').
 
 pl_resolution(Clauses0, Chain) :-
         maplist(sort, Clauses0, Clauses), % remove duplicates