rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

qualify '$print_project_attributes_exception' call (#857)

Browse Source
This commit is contained in:
Mark Thom
2021-03-05 01:14:51 -07:00
parent 1b9db035ba
commit 0a71e40030
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/machine/project_attributes.pl
View File

@@ -15,7 +15,9 @@ enqueue_goals(Goals0) :-
enqueue_goals(_). enqueue_goals(_).
'$print_project_attributes_exception'(Module, E) :- '$print_project_attributes_exception'(Module, E) :-
( E = error(evaluation_error((Module:project_attributes)/2), project_attributes/2) -> ( ( E = error(existence_error(procedure, project_attributes/2), _)
; E = error(evaluation_error((Module:project_attributes)/2), _)
) ->
true true
; write_term('caught: ', [quoted(false)]), ; write_term('caught: ', [quoted(false)]),
writeq(E), writeq(E),
@@ -26,7 +28,7 @@ call_project_attributes([], _, _).
call_project_attributes([Module|Modules], QueryVars, AttrVars) :- call_project_attributes([Module|Modules], QueryVars, AttrVars) :-
( catch(Module:project_attributes(QueryVars, AttrVars), ( catch(Module:project_attributes(QueryVars, AttrVars),
E, E,
'$print_project_attributes_exception'(Module, E) '$project_atts':'$print_project_attributes_exception'(Module, E)
) )
-> true -> true
; true ; true