Anonymous user
Constrained genericity: Difference between revisions
m
→{{header|Forth}}
Line 387:
;class
\ FoodBox
:class FoodBox
object-list eatable-types
Line 395:
else ." not an eatable type "
then ;m
▲ begin eatable-types each:
while eat ▼
;class
: test ( obj -- )
begin dup each:
repeat drop ;
FoodBox fb
3 ' Eatable fb fill:
fb get test
successful eat
successful eat
Line 418 ⟶ 420:
5 ' green-apple fb1 fill:
fb1 get test
successful eat
successful eat
| |||