Diff for /gforth/kernel/int.fs between versions 1.106 and 1.107

version 1.106, 2004/08/23 14:03:53 version 1.107, 2004/11/11 20:13:53
Line 104  Defer source ( -- c-addr u ) \ core Line 104  Defer source ( -- c-addr u ) \ core
 \ number? number                                       23feb93py  \ number? number                                       23feb93py
   
 hex  hex
 const Create bases   10 ,   2 ,   A , 100 ,  const Create bases   0A , 10 ,   2 ,   0A , 100 ,
 \                     16     2    10   character  \                    10   16     2     10   character
   
 \ !! protect BASE saving wrapper against exceptions  \ !! protect BASE saving wrapper against exceptions
 : getbase ( addr u -- addr' u' )  : getbase ( addr u -- addr' u' )
     over c@ [char] $ - dup 4 u<      over c@ [char] # - dup 5 u<
     IF      IF
         cells bases + @ base ! 1 /string          cells bases + @ base ! 1 /string
     ELSE      ELSE

Removed from v.1.106  
changed lines
  Added in v.1.107


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