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

version 1.3, 1996/08/26 10:07:21 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 45  interpret/compile: ." ( compilation 'ccc Line 42  interpret/compile: ." ( compilation 'ccc
 \ DOES>                                                17mar93py  \ DOES>                                                17mar93py
   
 :noname  :noname
     align dodoes, here !does ]      dodoes, here !does ]
     defstart :-hook ;      defstart :-hook ;
 :noname  :noname
     ;-hook postpone (does>) ?struc dodoes,      ;-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.3  
changed lines
  Added in v.1.4


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