Diff for /gforth/kernel/int.fs between versions 1.178 and 1.179

version 1.178, 2011/10/06 20:04:35 version 1.179, 2011/10/06 20:21:28
Line 643  Defer parse-name ( "name" -- c-addr u ) Line 643  Defer parse-name ( "name" -- c-addr u )
 ' parse-name alias name ( -- c-addr u ) \ gforth-obsolete  ' parse-name alias name ( -- c-addr u ) \ gforth-obsolete
 \G old name for @code{parse-name}  \G old name for @code{parse-name}
           
   : no.extensions  ( addr u -- )
       2drop -&13 throw ;
   
   has? recognizer 0= [IF]
 Defer compiler-notfound1 ( c-addr count -- ... xt )  Defer compiler-notfound1 ( c-addr count -- ... xt )
 Defer interpreter-notfound1 ( c-addr count -- ... xt )  Defer interpreter-notfound1 ( c-addr count -- ... xt )
   
 : no.extensions  ( addr u -- )  
     2drop -&13 throw ;  
 ' no.extensions IS compiler-notfound1  ' no.extensions IS compiler-notfound1
 ' no.extensions IS interpreter-notfound1  ' no.extensions IS interpreter-notfound1
   [THEN]
   
 Defer before-word ( -- ) \ gforth  Defer before-word ( -- ) \ gforth
 \ called before the text interpreter parses the next word  \ called before the text interpreter parses the next word

Removed from v.1.178  
changed lines
  Added in v.1.179


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