Commit f24f0a3f authored by Anton Ertl's avatar Anton Ertl
Browse files

renamed NUMBER? into (NUMBER?) (Reason: NUMBER? is defined differently in F83)

parent 36b4ddb7

cross.fs

+5 −3
Original line number Diff line number Diff line
@@ -191,7 +191,7 @@ Create bases 10 , 2 , A , 100 , 
	1+

    THEN ;



: number? ( string -- string 0 / n -1 / d 0> )

: (number?) ( string -- string 0 / n -1 / d 0> )

    dup >r count snumber? dup if

	rdrop

    else
@@ -199,13 +199,15 @@ Create bases 10 , 2 , A , 100 , 
    then ;



: number ( string -- d )

    number? ?dup 0= abort" ?"  0<

    (number?) ?dup 0= abort" ?"  0<

    IF

	s>d

    THEN ;



[THEN]



[IFUNDEF] (number?) : (number?) number? ; [THEN]



\ this provides assert( and struct stuff

\GFORTH [IFUNDEF] assert1(

\GFORTH also forth definitions require assert.fs previous
@@ -2535,7 +2537,7 @@ Cond: MAXI 
        IF   nip execute-exec-compile ELSE gexecute  THEN 

	EXIT 

  THEN

  number? dup  

  (number?) dup  

  IF	0> IF swap lit,  THEN  lit, discard

  ELSE	2drop restore-input throw Ghost gexecute THEN  ;

kernel/int.fs

+3 −3
Original line number Diff line number Diff line
@@ -113,7 +113,7 @@ Defer source ( -- c-addr u ) \ core 


\ \ Number parsing					23feb93py



\ number? number                                       23feb93py

\ (number?) number                                       23feb93py



hex

const Create bases   0A , 10 ,   2 ,   0A ,
@@ -210,7 +210,7 @@ has? os 0= [IF] 
	1+

    THEN ;



: number? ( string -- string 0 / n -1 / d 0> )

: (number?) ( string -- string 0 / n -1 / d 0> )

    dup >r count snumber? dup if

	rdrop

    else
@@ -218,7 +218,7 @@ has? os 0= [IF] 
    then ;



: number ( string -- d )

    number? ?dup 0= abort" ?"  0<

    (number?) ?dup 0= abort" ?"  0<

    IF

	s>d

    THEN ;