gforth/look.fs - diff

Return to look.fs CVS log

Up to [gforth] / gforth

version 1.2, 1994/07/21 14:41:47	version 1.4, 1996/05/13 16:37:01
Line 1	Line 1
\ LOOK.FS xt -> lfa 22may93jaw	\ LOOK.FS xt -> lfa 22may93jaw

	\ Copyright (C) 1995 Free Software Foundation, Inc.

	\ This file is part of Gforth.

	\ Gforth is free software; you can redistribute it and/or
	\ modify it under the terms of the GNU General Public License
	\ as published by the Free Software Foundation; either version 2
	\ of the License, or (at your option) any later version.

	\ This program is distributed in the hope that it will be useful,
	\ but WITHOUT ANY WARRANTY; without even the implied warranty of
	\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	\ GNU General Public License for more details.

	\ You should have received a copy of the GNU General Public License
	\ along with this program; if not, write to the Free Software
	\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

\ Look checks first if the word is a primitive. If yes then the	\ Look checks first if the word is a primitive. If yes then the
\ vocabulary in the primitive area is beeing searched, meaning	\ vocabulary in the primitive area is beeing searched, meaning
\ creating for each word a xt and comparing it...	\ creating for each word a xt and comparing it...
Line 14 decimal	Line 32 decimal

\ : >name ( xt -- nfa )	\ : >name ( xt -- nfa )
\ BEGIN 1 chars -	\ BEGIN 1 chars -
\ dup c@ 128 and	\ dup c@ alias-mask and
\ UNTIL ;	\ UNTIL ;

: PrimStart ['] true >name ;	: PrimStart ['] true >name ;