From 6a1e6d3c086a8f6e9db0e6fc881c08d3858754bc Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 10 Sep 2008 01:45:16 -0500
Subject: [PATCH] Fix dispatch bug found by mnestic

---
 core/kernel/kernel-tests.factor | 6 ++++--
 core/sequences/sequences.factor | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/core/kernel/kernel-tests.factor b/core/kernel/kernel-tests.factor
index 5cb4abc2e9..8a51d45447 100755
--- a/core/kernel/kernel-tests.factor
+++ b/core/kernel/kernel-tests.factor
@@ -1,6 +1,7 @@
 USING: arrays byte-arrays kernel kernel.private math memory
 namespaces sequences tools.test math.private quotations
-continuations prettyprint io.streams.string debugger assocs ;
+continuations prettyprint io.streams.string debugger assocs
+sequences.private ;
 IN: kernel.tests
 
 [ 0 ] [ f size ] unit-test
@@ -118,7 +119,8 @@ IN: kernel.tests
 
 [ total-failure-1 ] must-fail
 
-! From combinators.lib
 [ 1 1 2 2 3 3 ] [ 1 2 3 [ dup ] tri@ ] unit-test
 [ 1 4 9 ] [ 1 2 3 [ sq ] tri@ ] unit-test
 [ [ sq ] tri@ ] must-infer
+
+[ 4 ] [ 1 { [ 1 ] [ 2 ] } dispatch sq ] unit-test
diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index df79069898..dbb24c3168 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -74,7 +74,7 @@ INSTANCE: immutable-sequence sequence
 : set-array-nth ( elt n array -- )
     swap 2 fixnum+fast set-slot ; inline
 
-: dispatch ( n array -- ) array-nth (call) ;
+: dispatch ( n array -- ) array-nth call ;
 
 GENERIC: resize ( n seq -- newseq ) flushable