12 lines
354 B
Forth
12 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 ;
|