Return to vars.fs CVS log | Up to [gforth] / gforth |
version 1.2, 1994/05/05 15:46:53 | version 1.3, 1994/05/07 14:56:07 |
---|---|
Line 57 AUser "error 0 "error ! | Line 57 AUser "error 0 "error ! |
User dpl -1 dpl ! | User dpl -1 dpl ! |
User state 0 state ! | User state 0 state ! |
AUser dp | AUser normal-dp \ the usual dictionary pointer |
AUser dpp normal-dp dpp ! | |
\ the pointer to the current dictionary pointer | |
\ ist reset to normal-dp on (doerror) | |
\ (i.e. any throw caught by quit) | |
AUser LastCFA | AUser LastCFA |
AUser Last | AUser Last |