A.12
library(error)
[nondet]
current_type
(
?Type, @Var, -Body
)
True when
Type
is a currently defined type and
Var
satisfies
Type
of the body term
Body
succeeds.