math.hashcodes,python.syntax: bi@ and -> both?
parent
f692200547
commit
b035e8ec13
|
@ -18,7 +18,7 @@ GENERIC: number-hashcode ( x -- h )
|
|||
|
||||
: hash-fraction ( m n -- h )
|
||||
|
||||
[ 2dup [ P mod zero? ] bi@ and ] [
|
||||
[ 2dup [ P mod zero? ] both? ] [
|
||||
[ P /i ] bi@
|
||||
] while
|
||||
|
||||
|
|
|
@ -66,7 +66,7 @@ IN: python.syntax.tests
|
|||
[ t ] [
|
||||
"python-file" temp-file >py "wb" >py open
|
||||
[ tell ] [ fileno ] [ close ] tri
|
||||
[ py> integer? ] bi@ and
|
||||
[ py> integer? ] both?
|
||||
] py-test
|
||||
|
||||
! Method chaining
|
||||
|
|
Loading…
Reference in New Issue