Fix to Cyc_is_reserved_symbol()

This commit is contained in:
Justin Ethier 2015-07-06 23:39:14 -04:00
parent 370af953c7
commit 602295e29c

View file

@ -614,7 +614,7 @@ object Cyc_is_symbol(object o){
return boolean_f;}
object Cyc_is_reserved_symbol(object o) {
if (Cyc_is_symbol(o) == boolean_t && equalp(o, quote_Cyc_191procedure))
if (Cyc_is_symbol(o) == boolean_t && equal(o, quote_Cyc_191procedure))
return boolean_t;
return boolean_f; }