Fixed issue 16.

- Use prolog_load_context module for tilde expansion if term being
  expanded is not qualified.
- Added a passing test case.

Author: edechter

prolog/func.pl

@@ -180,7 +180,12 @@
 
 % support foo(x,~,y) evaluation
 user:function_expansion(MTerm, Output, M:Goal) :-
-    strip_module(MTerm, M, Term), 
+    (MTerm = M:Term ->
+         true
+    ; % not module qualified ->
+    prolog_load_context(module, M),
+    Term = MTerm
+    ),
     wants_func,
     compound(Term),
 

t/apply.pl

@@ -1,4 +1,8 @@
 :- use_module(library(func)).
+
+:- prolog_load_context(directory, Dir),
+   asserta(user:file_search_path(here, Dir)).
+
 :- use_module(library(tap)).
 
 single :-
@@ -36,9 +40,10 @@
     asserta(my_mod:foo([1,2,3])),
     length(my_mod:foo(~), 3).
 
-tilde_with_unqual_module(todo(issue_16)) :-
-    use_module(foo),
-    foo:bar(a).
+% see issue 16
+tilde_with_unqual_module :- 
+    use_module(here(resources/foo)), %% see dummy file resources/foo.pl
+    foo:bar(a). 
 
 dicts :-
     John = person{ name: "John", age: 27 },