13 lines
354 B
Forth
13 lines
354 B
Forth
|
: bloopAbs
|
||
|
|
| bl m |
|
||
|
|
System.VERSION println
|
||
|
|
|
||
|
|
Word find("bloop") ->bl
|
||
|
|
bl isA(Constant) ifFalse: [ "bloop constant does not exist" println return ]
|
||
|
|
|
||
|
|
"abs" asMethod ->m
|
||
|
|
m ifNull: [ "abs method does not exist" println return ]
|
||
|
|
|
||
|
|
System.Out "bloop value is : " << bl value << cr
|
||
|
|
System.Out "bloop abs is : " << bl value m perform << cr ;
|