Matthias Trute <mtr...@web.de> writes:
> Hi Enoch,
>
> looks fine
>
> GIve me some more days to think about it (Im currently
> busy with other things) I find the sequence "(create) !e"
> sligthly strange. Your smudge change from an simple
> XT to WID-XT makes sense.
>
> Matthias
Hello Matthias,
I look forward to your critical reading of the patch. Currently I'm
using the mechanism to emulate Python private names convention (*) but
this scope word is bound to evolve.
Regards, Enoch.
(*) In Python names in a "module" which begin with underscore cannot be
imported to another via "from module import *".
P/S If you approve of this patch I suggest submission of an RfD to
forth200x.org.
----------------------------------------------------------------------
wordlist constant _private
get-order _private rot rot 1+ set-order
: scope ( c-addr len -- c-addr len wid )
over c@ [char] _ = if
_private
else
get-current
then
;
' scope is wlscope
------------------------------------------------------------------------------
Own the Future-Intel® Level Up Game Demo Contest 2013
Rise to greatness in Intel's independent game demo contest.
Compete for recognition, cash, and the chance to get your game
on Steam. $5K grand prize plus 10 genre and skill prizes.
Submit your demo by 6/6/13. http://p.sf.net/sfu/intel_levelupd2d
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel
