summaryrefslogtreecommitdiff
path: root/fig-utils/csrc
diff options
context:
space:
mode:
Diffstat (limited to 'fig-utils/csrc')
-rw-r--r--fig-utils/csrc/fig.c4
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;