Allow calling Cyc-get-cvar from eval

This commit is contained in:
Justin Ethier 2017-12-15 13:51:13 -05:00
parent f6d61f6451
commit d75cd52850

View file

@ -4208,8 +4208,8 @@ void _symbol_127(void *data, object cont, object args)
void _Cyc_91get_91cvar(void *data, object cont, object args)
{
printf("not implemented\n");
exit(1);
Cyc_check_num_args(data, "Cyc-get-cvar", 1, args);
return_closcall1(data, cont, Cyc_get_cvar((car(args))));
}
void _Cyc_91set_91cvar_67(void *data, object cont, object args)