![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to stuff.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to stuff.fs CVS log | Up to [gforth] / gforth |
| version 1.58, 2008/11/08 15:54:06 | version 1.61, 2009/09/06 22:43:23 |
|---|---|
| Line 1 | Line 1 |
| \ miscelleneous words | \ miscelleneous words |
| \ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc. | \ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc. |
| \ This file is part of Gforth. | \ This file is part of Gforth. |
| Line 155 AUser CSP | Line 155 AUser CSP |
| [ifdef] compiler1 | [ifdef] compiler1 |
| : postponer1 ( c-addr u -- ... xt ) | : postponer1 ( c-addr u -- ... xt ) |
| 2dup find-name dup if ( c-addr u nt ) | 2dup find-name |
| [ifdef] run-prelude run-prelude [then] | |
| dup if ( c-addr u nt ) | |
| nip nip name>comp | nip nip name>comp |
| 2dup [comp'] [[ d= if | 2dup [comp'] [[ d= if |
| 2drop ['] compiler1 is parser1 ['] noop | 2drop ['] compiler1 is parser1 ['] noop |