version 1.15, 1999/07/05 19:56:01
|
version 1.16, 1999/07/08 09:46:42
|
Line 359 variable public-wordlist
|
Line 359 variable public-wordlist
|
\ : to-this ( object -- ) |
\ : to-this ( object -- ) |
\ thisp ! ; |
\ thisp ! ; |
|
|
: m: ( -- xt colon-sys; run-time: object -- ) \ objects- objects |
: enterm ( -- ; run-time: object -- ) |
\g Start a method definition; @var{object} becomes new @code{this}. |
\g method prologue; @var{object} becomes new @code{this}. |
:noname |
|
POSTPONE this |
POSTPONE this |
POSTPONE >r |
POSTPONE >r |
POSTPONE to-this ; |
POSTPONE to-this ; |
|
|
|
: m: ( -- xt colon-sys; run-time: object -- ) \ objects- objects |
|
\g Start a method definition; @var{object} becomes new @code{this}. |
|
:noname enterm ; |
|
|
|
: :m ( "name" -- xt; run-time: object -- ) \ objects- objects |
|
\g Start a named method definition; @var{object} becomes new |
|
\g @code{this}. Has to be ended with @code{;m}. |
|
: enterm ; |
|
|
: exitm ( -- ) \ objects- objects |
: exitm ( -- ) \ objects- objects |
\g @code{exit} from a method; restore old @code{this}. |
\g @code{exit} from a method; restore old @code{this}. |