From a421eb9bdddfa7e2765456f756833d8941ac7a08 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 16 Jun 2025 05:42:58 -0400
Subject: fig-web: Initial puzzle site

---
 fig-utils/csrc/fig.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fig-utils/csrc/fig.c')

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;
-- 
cgit v1.2.3