v0.3.4: set and say
This commit is contained in:
@@ -78,6 +78,7 @@ if [
|
||||
" Testing dot: " puts 123 . # Test dot
|
||||
" Testing emit: " puts 65 emit cr # Test emit
|
||||
" Testing space: " puts 65 emit space 66 emit cr # Test space
|
||||
" Testing say: " puts say "hello from say"
|
||||
" Testing readln: " puts
|
||||
readln puts cr # Test readln
|
||||
" Testing .s: " puts .s cr # Test .s
|
||||
@@ -232,6 +233,13 @@ my_str_word "abc" streq and
|
||||
:: "my_inline_string_word" [ 400 ]
|
||||
my_inline_string_word 400 = and
|
||||
if [ " is PASS" puts cr ] [ " is FAIL" puts cr ] # Test is
|
||||
set my_set_word [ 500 ]
|
||||
my_set_word 500 =
|
||||
set my_set_num 600
|
||||
my_set_num 600 = and
|
||||
set my_set_str "hello_set"
|
||||
my_set_str "hello_set" streq and
|
||||
if [ " set PASS" puts cr ] [ " set FAIL" puts cr ] # Test set
|
||||
" _start PASS" puts cr # Test _start (executed via entry point)
|
||||
|
||||
# 11. Host Language Evaluation: hseval
|
||||
|
||||
Reference in New Issue
Block a user