Diff for /gforth/kernel/int.fs between versions 1.116 and 1.117

version 1.116, 2005/01/06 21:54:17 version 1.117, 2005/01/09 20:32:41
Line 111  const Create bases   0A , 10 ,   2 ,   0 Line 111  const Create bases   0A , 10 ,   2 ,   0
 : getbase ( addr u -- addr' u' )  : getbase ( addr u -- addr' u' )
     2dup s" 0x" string-prefix? >r      2dup s" 0x" string-prefix? >r
     2dup s" 0X" string-prefix? r> or      2dup s" 0X" string-prefix? r> or
     base @ #34 < and if      base @ &34 < and if
         hex 2 /string          hex 2 /string
     endif      endif
     over c@ [char] # - dup 4 u<      over c@ [char] # - dup 4 u<

Removed from v.1.116  
changed lines
  Added in v.1.117


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