v0.3.3: is lib word, UTF–8 string support
This commit is contained in:
@@ -224,10 +224,10 @@ if [
|
||||
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
|
||||
":: source_test_word [ 99 ]" "test_source.clx" writef drop source test_source.clx source_test_word 99 = if [ "test_source.clx" delf " source PASS" puts cr ] [ "test_source.clx" delf " source FAIL" puts cr ] # Test source
|
||||
is my_is_word [ 200 ]
|
||||
my_is_word is [ 200 ]
|
||||
my_is_word 200 =
|
||||
is "my_is_string_word" [ 300 ]
|
||||
my_is_string_word 300 = and
|
||||
:: "my_inline_string_word" [ 400 ]
|
||||
my_inline_string_word 400 = and
|
||||
if [ " is PASS" puts cr ] [ " is FAIL" puts cr ] # Test is
|
||||
" _start PASS" puts cr # Test _start (executed via entry point)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user