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

version 1.2, 1996/08/21 14:58:44 version 1.4, 1997/02/24 22:29:00
Line 31  interpret/compile: S" ( compilation 'ccc Line 31  interpret/compile: S" ( compilation 'ccc
 :noname    ' >body postpone ALiteral postpone ! ;  :noname    ' >body postpone ALiteral postpone ! ;
 interpret/compile: IS ( addr "name" -- ) \ gforth  interpret/compile: IS ( addr "name" -- ) \ gforth
   
 ' IS Alias TO ( addr "name" -- ) \ core-ext  
 immediate  
   
 :noname    ' >body @ ;  :noname    ' >body @ ;
 :noname    ' >body postpone ALiteral postpone @ ;  :noname    ' >body postpone ALiteral postpone @ ;
 interpret/compile: What's ( "name" -- addr ) \ gforth  interpret/compile: What's ( "name" -- addr ) \ gforth
Line 44  interpret/compile: ." ( compilation 'ccc Line 41  interpret/compile: ." ( compilation 'ccc
   
 \ DOES>                                                17mar93py  \ DOES>                                                17mar93py
   
 :noname    align dodoes, here !does ]  :noname
       dodoes, here !does ]
     defstart :-hook ;      defstart :-hook ;
 :noname    ;-hook postpone (does>) ?struc dodoes,  :noname
       ;-hook postpone (does>) ?struc dodoes,
     defstart :-hook ;      defstart :-hook ;
 interpret/compile: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core        does  interpret/compile: DOES>  ( compilation colon-sys1 -- colon-sys2 ; run-time nest-sys -- ) \ core        does
       
   ' IS Alias TO ( addr "name" -- ) \ core-ext
   immediate
   
   

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


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