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

version 1.2, 1997/12/14 01:15:19 version 1.3, 1998/07/08 16:47:31
Line 49  Variable libs 0 libs ! Line 49  Variable libs 0 libs !
     \G    OS name of symbol as counted string      \G    OS name of symbol as counted string
     here 2dup swap 2 cells + dup @ A, !      here 2dup swap 2 cells + dup @ A, !
     2swap  1 and  IF  fcall-table  ELSE  icall-table  THEN  swap      2swap  1 and  IF  fcall-table  ELSE  icall-table  THEN  swap
     cells 2* + , 0 , bl parse-word string, @proc ;      cells 2* + , 0 , bl sword string, @proc ;
   
 -1 Constant (addr)  -1 Constant (addr)
  0 Constant (int)   0 Constant (int)
Line 99  DOES> ( -- addr ) Line 99  DOES> ( -- addr )
     \G    linked list of library's procs      \G    linked list of library's procs
     \G    OS name of library as counted string      \G    OS name of library as counted string
     Create  here libs @ A, dup libs !      Create  here libs @ A, dup libs !
     0 , 0 A, bl parse-word string, @lib      0 , 0 A, bl sword string, @lib
 DOES> ( pars/ type -- )  DOES> ( pars/ type -- )
     over -1 = IF  label:      over -1 = IF  label:
     ELSE      ELSE

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


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