small fix to hook case.
This commit is contained in:
parent
96149d991f
commit
4d3bb0143f
@ -52,7 +52,7 @@ with SICStus Prolog.
|
|||||||
user:unknown_predicate_handler(G0,M0,NG)
|
user:unknown_predicate_handler(G0,M0,NG)
|
||||||
->
|
->
|
||||||
'$exit_undefp',
|
'$exit_undefp',
|
||||||
call(M:NG)
|
call(M0:NG)
|
||||||
;
|
;
|
||||||
'$exit_undefp',
|
'$exit_undefp',
|
||||||
'$handle_error'(Default,G0,M0)
|
'$handle_error'(Default,G0,M0)
|
||||||
|
Reference in New Issue
Block a user