version 1.21, 2000/09/23 15:06:03
|
version 1.25, 2003/01/20 17:07:38
|
Line 16
|
Line 16
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
\ May be cross-compiled |
\ May be cross-compiled |
\ If you want check values then exclude comments, |
\ If you want check values then exclude comments, |
Line 33 require look.fs
|
Line 33 require look.fs
|
: alias? ( nfa1 -- nfa2|0 ) |
: alias? ( nfa1 -- nfa2|0 ) |
\ if nfa1 is an alias, nfa2 is the name of the original word. |
\ if nfa1 is an alias, nfa2 is the name of the original word. |
\ if the original word has no name, return 0. |
\ if the original word has no name, return 0. |
dup cell+ c@ alias-mask and 0= |
dup cell+ @ alias-mask and 0= |
IF ( nfa1 ) |
IF ( nfa1 ) |
((name>)) @ >name |
((name>)) @ >name |
ELSE |
ELSE |