implemented hseval

This commit is contained in:
Luxferre
2026-07-03 11:58:39 +03:00
parent 4023323d5f
commit 1b583b2ff5
3 changed files with 16 additions and 0 deletions
+11
View File
@@ -204,3 +204,14 @@ if [
"my_const" [ 99 ] defw my_const 99 = if [ " defw (no-inline) PASS" puts cr ] [ " defw (no-inline) FAIL" puts cr ] # Test defw
:: my_inline [ 100 ]
my_inline 100 = if [ " :: (inline) PASS" puts cr ] [ " :: (inline) FAIL" puts cr ] # Test inline ::
# 11. Host Language Evaluation: hseval
"Testing host language evaluation..." puts cr
"[1, 2] * 2" hseval [ 1 2 1 2 ] streq
"1 + 2" hseval 3 = and
if [
" hseval PASS" puts cr
] [
" hseval FAIL" puts cr
]