[gforth] / gforth / lib.fs  

gforth: gforth/lib.fs

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

version 1.1, Thu May 29 19:42:13 1997 UTC version 1.2, Sun Dec 14 01:15:19 1997 UTC
Line 91 
Line 91 
 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 
Line 112 
   
 : 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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help