fig-web: Initial puzzle site

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;