Diff for /gforth/gray.fs between versions 1.10 and 1.12

version 1.10, 2007/12/31 18:40:24 version 1.12, 2008/06/14 20:56:10
Line 1 Line 1
 \ recursive descent parser generator )  \ recursive descent parser generator )
   
 \ Copyright (C) 1995,1996,1997,2000,2003 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,2000,2003,2007 Free Software Foundation, Inc.
 \ Copyright 1990, 1991, 1994 Martin Anton Ertl  \ Copyright 1990, 1991, 1994 Martin Anton Ertl
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
Line 746  constant nt-syntax-expr Line 746  constant nt-syntax-expr
 : generate-nt \ -- )  : generate-nt \ -- )
 \ generates a call to the code for the rule )  \ generates a call to the code for the rule )
 \ since the code needs not be generated yet, an indirect call is used )  \ since the code needs not be generated yet, an indirect call is used )
  exec postpone literal   exec dup @ if
  postpone @    @ compile,
  postpone execute ;   else
     postpone literal
     postpone @
     postpone execute
    endif ;
   
 : pass2-nt \ -- )  : pass2-nt \ -- )
 \ apart from the usual duties, this pass2 also has to code-nt )  \ apart from the usual duties, this pass2 also has to code-nt )

Removed from v.1.10  
changed lines
  Added in v.1.12


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>