From 28d73e028e9fe3cffdd13e663cef7d81ef27bcd9 Mon Sep 17 00:00:00 2001
From: Justin Skists <justin.skists@juzza.co.uk>
Date: Fri, 7 Feb 2025 09:22:52 +0000
Subject: [PATCH] facility wordset test: remove case insensitivity

Compilation of the Facility test fails on case-sensitive Forth
implementations. Fix this by using upper-case words to make it
consistent with the rest of the file.
---
 src/facilitytest.fth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/facilitytest.fth b/src/facilitytest.fth
index 45449fe..5066d01 100644
--- a/src/facilitytest.fth
+++ b/src/facilitytest.fth
@@ -43,7 +43,7 @@ T{ BEGIN-STRUCTURE STRCT2
       1 CELLS +FIELD F24
    END-STRUCTURE   -> }T
 
-T{ STRCT2 -> 3 chars 1 cells + }T   \ +FIELD doesn't align
+T{ STRCT2 -> 3 CHARS 1 CELLS + }T   \ +FIELD doesn't align
 T{ 0 F21 -> 0 }T
 T{ 0 F22 -> 1 }T
 T{ 0 F23 -> 3 }T