improve goal expansion and (',') interpretation error handling

2023-07-20 14:27:10 -06:00
parent 1697cd5c7f
commit e529e7ba21
2 changed files with 24 additions and 4 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -334,6 +334,9 @@ dispatch_prep(Gs, B, [Cont|Conts]) :-
       ;  Gs0 == ! ->
          Cont = '$call'(builtins:set_cp(B)),
          Conts = []
+       ;  nonvar(Gs0),
+          \+ callable(Gs0) ->
+          throw(dispatch_prep_error)
       ;  Cont = Gs,
          Conts = []
       )