math.transforms.bwt: cleaner to check last.

2014-06-30 09:04:08 -07:00 · 2014-06-30 09:04:08 -07:00 · 85fdc4f6d2
parent 14c5f30ee5
commit 85fdc4f6d2
1 changed files with 1 additions and 1 deletions
--- 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 ;