Return to objexamp.fs CVS log | Up to [gforth] / gforth |
version 1.2, 1998/10/07 18:29:38 | version 1.4, 1998/12/08 22:02:49 |
---|---|
Line 1 | Line 1 |
\ examples and tests for objects.fs | \ examples and tests for objects.fs |
\ written by Anton Ertl 1996, 1997 | \ written by Anton Ertl 1996-1998 |
\ public domain | \ public domain |
cr object heap-new print | cr object heap-new print |
Line 155 z print cr | Line 155 z print cr |
z val . cr | z val . cr |
z inc | z inc |
z val . cr | z val . cr |
1 z add | |
z val . cr | |
\ test inst-value | \ test inst-value |
object class | object class |