RosettaCodeData/Task/Null-object/Oforth/null-object.fth

null isNull
"abcd" isNull
: testNull { | a | a ifNull: [ "Variable value is null" println ] ;