[gforth] / gforth / oof.fs  

gforth: gforth/oof.fs

Diff for /gforth/oof.fs between version 1.10 and 1.11

version 1.10, Wed Jul 2 20:30:06 1997 UTC version 1.11, Sat Aug 2 20:19:05 1997 UTC
Line 489 
Line 489 
          early     super       immediate           early     super       immediate
          early     self           early     self
          early     bind        immediate           early     bind        immediate
          early     is          immediate  
          early     bound           early     bound
          early     link        immediate           early     link        immediate
          early     '           immediate           early     is          immediate
          early     send        immediate           early     send        immediate
          early     with        immediate           early     with        immediate
          early     endwith     immediate           early     endwith     immediate
            early     '           immediate
          early     postpone    immediate           early     postpone    immediate
            early     definitions
   
 \ base object class implementation part                23mar95py  \ base object class implementation part                23mar95py
   
 how:    0 parento !  how:
   0 parento !
         0 childo !          0 childo !
         0 nexto !          0 nexto !
         : class   ( -- )       Create immediate o@ (class ;          : class   ( -- )       Create immediate o@ (class ;
Line 537 
Line 539 
         : with ( -- )          : with ( -- )
           state @ oset? 0= and IF  Fpostpone >o  THEN            state @ oset? 0= and IF  Fpostpone >o  THEN
           o@ add-order voc# ! false to oset? ;            o@ add-order voc# ! false to oset? ;
         : endwith  Fpostpone o>      : endwith  Fpostpone o> voc# @ drop-order ;
           voc# @ drop-order ;  
       : definitions
           o@ add-order 1+ voc# ! also types o@ lastob !
           false to oset?   get-current old-current !
           thread @ set-current ;
 class; \ object  class; \ object
   
 \ interface                                            01sep96py  \ interface                                            01sep96py

Generate output suitable for use with a patch program
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help