Re: meta-compiler
"Ray St. Marie" <[email protected]>
| Newsgroups | gmane.comp.lang.forth.colorforth |
|---|---|
| Message-ID | <[email protected]> |
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 <[email protected]> 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: [email protected] > For additional commands, e-mail: [email protected] > 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