io.binary: speed up signed>.

2013-11-24 12:01:21 -08:00 · 2013-11-24 12:01:21 -08:00 · eafc775bbb
parent 17941b8ad7
commit eafc775bbb
1 changed files with 1 additions and 1 deletions
--- a/core/io/binary/binary.factor
+++ b/core/io/binary/binary.factor
@ -34,7 +34,7 @@ PRIVATE>
 <PRIVATE

 : signed> ( x seq -- n )
-    length 8 * 1 - 2^ 1 - 2dup > [ bitnot bitor ] [ drop ] if ; inline
+    length 8 * 2dup 1 - bit? [ 2^ - ] [ drop ] if ; inline

 PRIVATE>