From b7ddaf3c17dd653ca252a9605d98db11e2c8b235 Mon Sep 17 00:00:00 2001 From: Luxferre Date: Tue, 31 Mar 2026 20:28:47 +0300 Subject: [PATCH] updated Janet port to use string/check-set for choices --- janet/scoundrel.janet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/janet/scoundrel.janet b/janet/scoundrel.janet index ba06208..2585e43 100644 --- a/janet/scoundrel.janet +++ b/janet/scoundrel.janet @@ -32,7 +32,7 @@ (var valid false) (while (not valid) (set resp (get-choice prompt)) - (set valid (case resp "y" true "n" true false))) + (set valid (string/check-set "yn" resp))) (= resp "y")) # data section @@ -86,7 +86,7 @@ (set valid (cond (= ch "r") (and (state :can-run) (not (state :engaged))) - (has-value? ["1" "2" "3" "4"] ch) + (string/check-set "1234" ch) (<= (scan-number ch) (length room)) false))) ch)