Fix bug - polymorphic types are not atomic!

type_util.nl:
	Fix bug - polymorphic types are not atomic!
This commit is contained in:
Fergus Henderson
1995-01-27 00:40:12 +00:00
parent b1168dab5e
commit 9b8ac6ed6b

View File

@@ -90,6 +90,7 @@ type_util__type_id_arity(_ModuleInfo, _Name - Arity, Arity).
type_is_atomic(Type, ModuleInfo) :-
classify_type(Type, ModuleInfo, BuiltinType),
BuiltinType \= polymorphic_type,
BuiltinType \= pred_type,
BuiltinType \= user_type(_).