Diff for /gforth/kernel/Attic/special.fs between versions 1.3 and 1.4

version 1.3, 1997/08/31 19:32:31 version 1.4, 1997/09/13 12:05:53
Line 21 Line 21
 \ this file comes last, because these words override cross' words.  \ this file comes last, because these words override cross' words.
   
 create s"-buffer /line chars allot  create s"-buffer /line chars allot
 :noname    [char] " parse  has? ionly 
     /line min >r s"-buffer r@ cmove  [IF] : s" [ELSE] :noname [THEN]
     s"-buffer r> ;          [char] " parse
 :noname    [char] " parse postpone SLiteral ;          /line min >r s"-buffer r@ cmove
           s"-buffer r> ;
   has? ionly 0= [IF]
   :noname [char] " parse postpone SLiteral ;
 interpret/compile: S" ( compilation 'ccc"' -- ; run-time -- c-addr u )  \ core,file     s-quote  interpret/compile: S" ( compilation 'ccc"' -- ; run-time -- c-addr u )  \ core,file     s-quote
   [THEN]
   
   has? ionly 0= [IF]
 : [IS] ( compilation "name" -- ; run-time xt -- ) \ possibly-gforth bracket-is  : [IS] ( compilation "name" -- ; run-time xt -- ) \ possibly-gforth bracket-is
     ' >body postpone ALiteral postpone ! ; immediate restrict      ' >body postpone ALiteral postpone ! ; immediate restrict
   
Line 55  interpret/compile: DOES>  ( compilation Line 60  interpret/compile: DOES>  ( compilation
 ' IS Alias TO ( addr "name" -- ) \ core-ext  ' IS Alias TO ( addr "name" -- ) \ core-ext
 immediate  immediate
   
   [THEN]
   
 doer? :docon [IF]  doer? :docon [IF]
 : docon: ( -- addr )    \ gforth  : docon: ( -- addr )    \ gforth
Line 93  doer? :dofield [IF] Line 99  doer? :dofield [IF]
     ['] reveal-method >code-address ;      ['] reveal-method >code-address ;
 [THEN]  [THEN]
   
 has-prims 0= [IF]  has? prims 0= [IF]
 : dodoes: ( -- addr )   \ gforth  : dodoes: ( -- addr )   \ gforth
     \G the code address of a @code{field}      \G the code address of a @code{field}
     ['] spaces >code-address ;      ['] spaces >code-address ;

Removed from v.1.3  
changed lines
  Added in v.1.4


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