\ examples and tests for objects.fs
\ test for working across image generation
\ stuff to run after image generation
\ written by Anton Ertl 1996-1998, 2016
\ public domain
cr object heap-new print
cr undefined print
cr
counter1 print
counter1 inc
counter1 print
counter1 inc
counter1 inc
counter1 inc
counter1 print
counter1 print
\ examples of static binding
cr undefined bind object print
cr undefined object-print
cr
y print cr
20 x add
20 y add
x val .
\ y val . \ undefined
y print
cr
z print cr
z val . cr
z inc
z val . cr
1 z add
z val . cr
five print
five val 1+ . cr
.s cr