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 )
|
: hash-fraction ( m n -- h )
|
||||||
|
|
||||||
[ 2dup [ P mod zero? ] bi@ and ] [
|
[ 2dup [ P mod zero? ] both? ] [
|
||||||
[ P /i ] bi@
|
[ P /i ] bi@
|
||||||
] while
|
] while
|
||||||
|
|
||||||
|
|
|
@ -66,7 +66,7 @@ IN: python.syntax.tests
|
||||||
[ t ] [
|
[ t ] [
|
||||||
"python-file" temp-file >py "wb" >py open
|
"python-file" temp-file >py "wb" >py open
|
||||||
[ tell ] [ fileno ] [ close ] tri
|
[ tell ] [ fileno ] [ close ] tri
|
||||||
[ py> integer? ] bi@ and
|
[ py> integer? ] both?
|
||||||
] py-test
|
] py-test
|
||||||
|
|
||||||
! Method chaining
|
! Method chaining
|
||||||
|
|
Loading…
Reference in New Issue