From 44826cb0d71c9354cf62eeeec755f42de48df5a6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 11 Dec 2005 01:00:28 +0000
Subject: [PATCH] fix typo in fixnum<< generator

---
 TODO.FACTOR.txt                      | 4 ++--
 library/bootstrap/boot-stage2.factor | 4 ++--
 library/compiler/x86/fixnum.factor   | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index f4f335b4a6..8e24c1cd71 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,7 +1,7 @@
 + 0.80:
 
-- -with combinators are ackward
-
+- does parsing cons excessive amounts of bignums with c-streams
+- -with combinators are awkward
 - cleanups:
   alien/compiler
   inference/shuffle
diff --git a/library/bootstrap/boot-stage2.factor b/library/bootstrap/boot-stage2.factor
index 5982f726c5..5abacb0a33 100644
--- a/library/bootstrap/boot-stage2.factor
+++ b/library/bootstrap/boot-stage2.factor
@@ -79,10 +79,10 @@ parse-command-line
 "Building cross-reference database..." print
 recrossref
 
-all-words [ compiled? ] subset length
+[ compiled? ] word-subset length
 number>string write " compiled words" print
 
-all-words [ symbol? ] subset length
+[ symbol? ] word-subset length
 number>string write " symbol words" print
 
 all-words length
diff --git a/library/compiler/x86/fixnum.factor b/library/compiler/x86/fixnum.factor
index e6cdd909fa..b7f5faf501 100644
--- a/library/compiler/x86/fixnum.factor
+++ b/library/compiler/x86/fixnum.factor
@@ -118,9 +118,9 @@ M: %fixnum<< generate-node
     ! there is going to be an overflow, make a bignum
     1 input-operand tag-bits SAR
     "s48_long_to_bignum" f
-    1 input-operand 0 input 2array compile-c-call*
-    "s48_bignum_arithmetic_shift" f
     1 input-operand 1array compile-c-call*
+    "s48_bignum_arithmetic_shift" f
+    1 input-operand 0 input 2array compile-c-call*
     ! tag the result
     1 input-operand bignum-tag OR
     "end" get JMP