regression fix

This commit is contained in:
Luxferre
2026-07-10 10:20:23 +03:00
parent 94a809d224
commit 38e8de1faf
3 changed files with 6 additions and 12 deletions
+1
View File
@@ -230,6 +230,7 @@ if [
"Testing definition words..." puts cr
"my_const" [ 99 ] defw my_const 99 = if [ " defw (no-inline) PASS" puts cr ] [ " defw (no-inline) FAIL" puts cr ] # Test defw
"test_defw_map" [ [ 1 2 3 ] [ 2 * ] map ] defw test_defw_map [ 2 4 6 ] streq if [ " map inside defw PASS" puts cr ] [ " map inside defw FAIL" puts cr ] # Test map inside defw
:: my_inline [ 100 ]
my_inline 100 = if [ " :: (inline) PASS" puts cr ] [ " :: (inline) FAIL" puts cr ] # Test inline ::
5 then 5 = if [ " then PASS" puts cr ] [ " then FAIL" puts cr ] # Test then