Diff for /gforth/oof.fs between versions 1.2 and 1.3

version 1.2, 1996/09/24 19:15:04 version 1.3, 1996/10/13 19:56:22
Line 372  Variable last-interface  0 last-interfac Line 372  Variable last-interface  0 last-interfac
   
 : lastob!  ( -- )  lastob @ dup  : lastob!  ( -- )  lastob @ dup
     BEGIN  nip dup @ here cell+ 2 pick ! dup 0= UNTIL  drop      BEGIN  nip dup @ here cell+ 2 pick ! dup 0= UNTIL  drop
     dup , op! o@ lastob ! ;      dup , [ order ] op! o@ lastob ! ;
   
 : thread,  ( -- )  classlist @ , ;  : thread,  ( -- )  classlist @ , ;
 : var,     ( -- )  methods @ , vars @ , ;  : var,     ( -- )  methods @ , vars @ , ;

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


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