Fix bloopers

db4
Slava Pestov 2008-04-20 02:30:52 -05:00
parent c564481cc5
commit d1f37ab5ec
10 changed files with 9 additions and 9 deletions

View File

@ -126,11 +126,11 @@ M: utf16 <encoder> ( stream utf16 -- encoder )
! Native-order UTF-16 ! Native-order UTF-16
: native-utf16 ( -- descriptor ) : utf16n ( -- descriptor )
little-endian? utf16le utf16be ? ; little-endian? utf16le utf16be ? ; foldable
M: utf16n <decoder> drop native-utf16 <decoder> ; M: utf16n <decoder> drop utf16n <decoder> ;
M: utf16n <encoder> drop native-utf16 <encoder> ; M: utf16n <encoder> drop utf16n <encoder> ;
PRIVATE> PRIVATE>

View File

@ -19,7 +19,7 @@ IN: benchmark.spectral-norm
pick 0.0 [ pick 0.0 [
swap >r >r 2dup r> (eval-A-times-u) r> + swap >r >r 2dup r> (eval-A-times-u) r> +
] reduce nip ] reduce nip
] F{ } map-as { float-array } declare 2nip ; inline ] F{ } map-as 2nip ; inline
: (eval-At-times-u) ( u i j -- x ) : (eval-At-times-u) ( u i j -- x )
tuck swap eval-A >r swap nth-unsafe r> * ; inline tuck swap eval-A >r swap nth-unsafe r> * ; inline
@ -29,7 +29,7 @@ IN: benchmark.spectral-norm
pick 0.0 [ pick 0.0 [
swap >r >r 2dup r> (eval-At-times-u) r> + swap >r >r 2dup r> (eval-At-times-u) r> +
] reduce nip ] reduce nip
] F{ } map-as { float-array } declare 2nip ; inline ] F{ } map-as 2nip ; inline
: eval-AtA-times-u ( n u -- seq ) : eval-AtA-times-u ( n u -- seq )
dupd eval-A-times-u eval-At-times-u ; inline dupd eval-A-times-u eval-At-times-u ; inline

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel kernel.private math sequences USING: arrays kernel kernel.private math sequences
sequences.private growable bit-arrays prettyprint.backend sequences.private growable bit-arrays prettyprint.backend
parser ; parser accessors ;
IN: bit-vectors IN: bit-vectors
TUPLE: bit-vector underlying fill ; TUPLE: bit-vector underlying fill ;
@ -44,7 +44,7 @@ M: bit-array new-resizable drop <bit-vector> ;
INSTANCE: bit-vector growable INSTANCE: bit-vector growable
: ?V \ } [ >bit-vector ] parse-literal ; parsing : ?V{ \ } [ >bit-vector ] parse-literal ; parsing
M: bit-vector >pprint-sequence ; M: bit-vector >pprint-sequence ;

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel kernel.private math sequences USING: arrays kernel kernel.private math sequences
sequences.private growable float-arrays prettyprint.backend sequences.private growable float-arrays prettyprint.backend
parser ; parser accessors ;
IN: float-vectors IN: float-vectors
TUPLE: float-vector underlying fill ; TUPLE: float-vector underlying fill ;