|
|
my_pred(X) :-
( nonvar(X) ->
true
; throw(error(instantiation_error), my_pred/1)),
),
( integer(X) ->
true
; throw(error(type_error(integer, X), my_pred/1))
),
...
my_pred(X) :-
set_bip_name(my_pred,1),
( nonvar(X) ->
true
; '$pl_err_instantiation'
),
( integer(X) ->
true
; '$pl_err_type'(integer, X)
),
...
|
|
|
|
|
|
|
|
|
|