Re: [colorforth] meta-compiler

[Mark Slicker <maslicke@xxxxxxxxxxx>]

I made a few mistakes in the dictionary building code, here is an updated 
version:

: names [ 5 block delta negate + ] ;
: zero 0 over ! ;
: ?macro 3 f@ [ 3 f@ ] or drop if [ names -2 + zero ] dup 2 + ; then [ 
names -1 + zero ] dup 129 + ;
: entry [ last ] @ dup @ [ delta 4 * ] + swap [ gap negate ] + @ ;
: define defer 1 ?macro over @ + dup push entry pop ! swap [ 128 1024 + ] 
+ ! +! ;

---------------------------------------------------------------------
To unsubscribe, e-mail: colorforth-unsubscribe@xxxxxxxxxxxxxxxxxx
For additional commands, e-mail: colorforth-help@xxxxxxxxxxxxxxxxxx
Main web page - http://www.colorforth.com