version 1.7, 2002/03/22 18:40:00
|
version 1.10, 2003/03/09 15:16:45
|
Line 1
|
Line 1
|
\ report words used from the various wordsets |
\ report words used from the various wordsets |
|
|
\ Copyright (C) 1996,1998,1999 Free Software Foundation, Inc. |
\ Copyright (C) 1996,1998,1999,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 137 ans-report-words definitions
|
Line 137 ans-report-words definitions
|
\ dodefer: over code-address! |
\ dodefer: over code-address! |
\ >body ! ; |
\ >body ! ; |
dup @ docol: <> -12 and throw \ for colon defs only |
dup @ docol: <> -12 and throw \ for colon defs only |
>body ['] branch compile-prim over ! |
>body ['] branch xt>threaded over ! |
cell+ >r >body r@ - r> ! ; |
cell+ >r >body r> ! ; |
|
|
forth definitions |
forth definitions |
ans-report-words |
ans-report-words |