luxferre/clyx
1
0
Fork 0
Code Actions Activity

more fixed for v0.3.6

Browse Source
This commit is contained in:
Luxferre
2026-07-10 10:11:13 +03:00
parent 6c3a48d796
commit 94a809d224
3 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test.clx
+1
View File
@@ -21,6 +21,7 @@ _start [
0 if [ " if false FAIL" ] [ " if false PASS" ] puts cr # Test if false
10 20 [ 5 - ] dip [] cons cons [ 5 20 ] streq if [ " dip PASS" puts cr ] [ " dip FAIL" puts cr ] # Test dip
5 dup while [ 1 - dup ] 0 = if [ " while loop PASS" puts cr ] [ " while loop FAIL" puts cr ] # Test while
:: test_while_word [ 5 dup while [ 1 - dup ] ] test_while_word 0 = if [ " while in word PASS" puts cr ] [ " while in word FAIL" puts cr ] # Test while in word
0 [ + ] [ 1 2 3 ] qfor 6 = 0 [ + ] [] qfor 0 = and if [ " qfor PASS" puts cr ] [ " qfor FAIL" puts cr ] # Test qfor
0 for [ 1 4 range ] [ + ] 6 = 0 for [ [] ] [ + ] 0 = and if [ " for PASS" puts cr ] [ " for FAIL" puts cr ] # Test for