Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix bug of 'within'

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-13 20:11:47 +09:00
parent 92b7f456f6
commit 71edd798af
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
bootstrap.fs
View file

@ -659,8 +659,11 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
: 0<= 0 <= ;
: 0>= 0 >= ;
\ ( a b c -- (a<=c & c<b) )
: within tuck > -rot <= and ;
\ ( x a b -- f )
\ Returns a <= x & x < b if a <= b.
\ It is equivalent to x-a u< b-a. See chapter 4 of
\ Hacker's delight.
: within over - >r - r> u< ;
\ arithmetic shift
: 2* 1 lshift ;
@ -1099,8 +1102,8 @@ decimal \ set default to decimal
endcase
2dup
\ ( base n base n )
0 -rot
\ ( base n 0 base n )
swap 0 swap
\ ( base n n 0 base )
within unless
\ failed to convert
2drop r> r> nip false