diff options
Diffstat (limited to 'fig-utils/csrc/fig.c')
| -rw-r--r-- | fig-utils/csrc/fig.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fig-utils/csrc/fig.c b/fig-utils/csrc/fig.c index e828e71..2ad1005 100644 --- a/fig-utils/csrc/fig.c +++ b/fig-utils/csrc/fig.c @@ -33,9 +33,9 @@ int check_answer(char **failure, char *code, char *data) { check_answer_catch_body, &args, check_answer_catch_handler, NULL, check_answer_catch_handler, NULL); - if (scm_is_integer(res)) { + if (scm_is_bool(res)) { *failure = NULL; - return scm_to_int(res); + return scm_to_bool(res); } else { *failure = scm_to_utf8_stringn(res, NULL); return 0; |
