Diff for /gforth/lib.fs between versions 1.1 and 1.2

version 1.1, 1997/05/29 19:42:13 version 1.2, 1997/12/14 01:15:19
Line 91  DOES> ( x1 .. xn n -- ) Line 91  DOES> ( x1 .. xn n -- )
 DOES> ( -- addr )  DOES> ( -- addr )
     [ 2 cells ] Literal + @ ;      [ 2 cells ] Literal + @ ;
   
 : lib: ( "name" "file" -- )  : library ( "name" "file" -- )
     \G loads library "file" and creates a proc defining word "name"      \G loads library "file" and creates a proc defining word "name"
     \G library format:      \G library format:
     \G    linked list of libraries      \G    linked list of libraries
Line 112  DOES> ( pars/ type -- ) Line 112  DOES> ( pars/ type -- )
   
 : init-shared-libs ( -- )  : init-shared-libs ( -- )
     defers 'cold  libs      defers 'cold  libs
     BEGIN  @ dup  WHILE  >r      0  libs  BEGIN  @ dup  WHILE  dup  REPEAT  drop
       BEGIN  dup  WHILE  >r
         r@ @lib          r@ @lib
         r@ 2 cells +  BEGIN  @ dup  WHILE  r@ over @proc  REPEAT          r@ 2 cells +  BEGIN  @ dup  WHILE  r@ over @proc  REPEAT
         drop r>          drop rdrop
     REPEAT   drop ;      REPEAT  drop ;
   
 ' init-shared-libs IS 'cold  ' init-shared-libs IS 'cold

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


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