regression fix
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user