From 75c1e874704ca09e40fc31e538a8906aec1462e7 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Mon, 20 Oct 2014 15:44:13 +0100 Subject: [PATCH] callable strikes again. --- library/flags.yap | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/flags.yap b/library/flags.yap index ad92290a0..f54fd326c 100644 --- a/library/flags.yap +++ b/library/flags.yap @@ -266,7 +266,7 @@ flag_define(FlagName, FlagGroup, FlagType, DefaultValue, Description, Access, MH throw(error(domain_error(access, Access), message('Wrong access attribute, available are: read_write, read_only, hidden, hidden_read_only.', flag_define(FlagName, FlagGroup, FlagType, DefaultValue, Description, Access, Module:Handler)))) ; \+ callable(Handler) -> strip_module(Handler, Mod, G), - throw(error(type_error(callable, G/0), message('Flag handler needs to be callable.', flag_define(FlagName, FlagGroup, FlagType, DefaultValue, Description, Access, Module:Handler)))) + throw(error(type_error(callable, G), message('Flag handler needs to be callable.', flag_define(FlagName, FlagGroup, FlagType, DefaultValue, Description, Access, Module:Handler)))) ; validate(FlagType, Module:Handler, DefaultValue, FlagName), assertz('$defined_flag$'(FlagName, FlagGroup, FlagType, DefaultValue, Description, Access, Module:Handler)),