Return to vars.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.48, 2011/04/13 20:11:12 | version 1.49, 2011/11/16 01:25:58 |
---|---|
Line 199 AUser dpp normal-dp dpp ! | Line 199 AUser dpp normal-dp dpp ! |
\ the pointer to the current dictionary pointer | \ the pointer to the current dictionary pointer |
\ ist reset to normal-dp on (doerror) | \ ist reset to normal-dp on (doerror) |
\ (i.e. any throw caught by quit) | \ (i.e. any throw caught by quit) |
AUser LastCFA | has? ec [IF] |
AUser LastCFA | |
[THEN] | |
AUser Last | AUser Last |
has? flash [IF] | has? flash [IF] |