Add compiler transform for index with a literal sequenc

2009-03-27 20:05:23 -05:00 · 2009-03-27 20:05:23 -05:00 · b53960dace
parent 6b55cd55ef
commit b53960dace
1 changed files with 9 additions and 0 deletions
--- a/basis/stack-checker/transforms/transforms.factor
+++ b/basis/stack-checker/transforms/transforms.factor
@ -154,6 +154,15 @@ CONSTANT: bit-member-max 256
    dup sequence? [ memq-quot ] [ drop f ] if
 ] 1 define-transform

+! Index search
+\ index [
+    dup sequence? [
+        dup length 4 >= [
+            dup length zip >hashtable '[ _ at ]
+        ] [ drop f ] if
+    ] [ drop f ] if
+] 1 define-transform
+
 ! Shuffling
 : nths-quot ( indices -- quot )
    [ [ '[ _ swap nth ] ] map ] [ length ] bi