steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Teach compiler about string-nth range

db4
Slava Pestov 2008-12-05 23:51:58 -06:00
parent f48653c47a
commit 044e2867d5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/tree/propagation/known-words/known-words.factor
View File

@ -5,7 +5,7 @@ math.partial-dispatch math.intervals math.parser math.order
layouts words sequences sequences.private arrays assocs classes layouts words sequences sequences.private arrays assocs classes
classes.algebra combinators generic.math splitting fry locals classes.algebra combinators generic.math splitting fry locals
classes.tuple alien.accessors classes.tuple.private slots.private classes.tuple alien.accessors classes.tuple.private slots.private
definitions definitions strings.private
stack-checker.state stack-checker.state
compiler.tree.comparisons compiler.tree.comparisons
compiler.tree.propagation.info compiler.tree.propagation.info
@ -242,6 +242,10 @@ generic-comparison-ops [
] "custom-inlining" set-word-prop ] "custom-inlining" set-word-prop
] each ] each
\ string-nth [
2drop fixnum 0 23 2^ [a,b] <class/interval-info>
] "outputs" set-word-prop
{ {
alien-signed-1 alien-signed-1
alien-unsigned-1 alien-unsigned-1