Re: [colorforth] meta-compiler

["Ray St. Marie" <ray.stmarie@xxxxxxxxx>]

INSPIRED!!!

Can't wait to learn how to use it :)
Can't wait to boot it. 
Can't wait to be productive because of it.

Ray

On 5/29/05, Mark Slicker <maslicke@xxxxxxxxxxx> wrote:
> 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
> 
> 


-- 
Ray St. Marie
Rastm2ATusersDOTsourceforgeDOTnet
Ray.StMarieATgmailDOTcom and ATsbcglobalDOTnet
Ray_stmarieAThotmailDOTcom
Raystm2 and rastm2 in Internet Relay Chat (irc)
/connect  irc.freenode.net Busness discussion: /join #biz 
ColorForth: /join #c4th #c4th-ot Forth: /join #retro #forth #concatenative
Programming: /join #python #lisp #scheme #asm

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