![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to look.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to look.fs CVS log | Up to [gforth] / gforth |
| version 1.17, 2002/09/14 10:59:31 | version 1.21, 2003/01/02 21:40:22 |
|---|---|
| Line 35 decimal | Line 35 decimal |
| \ rename to discover!!! | \ rename to discover!!! |
| : xt>threaded ( xt -- x ) | |
| \G produces the threaded-code cell for the primitive xt | |
| threading-method 0= if | |
| @ | |
| then ; | |
| : (look) ( xt startlfa -- lfa flag ) | : (look) ( xt startlfa -- lfa flag ) |
| false swap | swap |
| [IFDEF] decompile-prim | |
| decompile-prim | |
| [THEN] | |
| >r false swap | |
| BEGIN | BEGIN |
| @ dup | @ dup |
| WHILE | WHILE |
| dup name>int | dup name>int xt>threaded |
| threading-method 0= if | r@ = IF |
| @ | |
| then | |
| 3 pick = IF | |
| nip dup | nip dup |
| THEN | THEN |
| REPEAT | REPEAT |
| drop nip | drop rdrop |
| dup 0<> ; | dup 0<> ; |