From 85fdc4f6d2261bb253ca6ac4a0b219a8b8145ac4 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 30 Jun 2014 09:04:08 -0700
Subject: [PATCH] math.transforms.bwt: cleaner to check last.

---
 extra/math/transforms/bwt/bwt.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/math/transforms/bwt/bwt.factor b/extra/math/transforms/bwt/bwt.factor
index 0b1340a3fd..b7054c9d3e 100644
--- a/extra/math/transforms/bwt/bwt.factor
+++ b/extra/math/transforms/bwt/bwt.factor
@@ -12,4 +12,4 @@ IN: math.transforms.bwt
 : ibwt ( newseq -- seq )
     [ length [ { } <array> ] keep ] keep
     '[ _ [ prefix ] 2map natural-sort ] times
-    [ { 0 } tail? ] find nip but-last ;
+    [ last 0 = ] find nip but-last ;