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

Fix walker

db4
Slava Pestov 2008-07-07 19:26:58 -05:00
parent 423ad4503b
commit 70e370f69d
3 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -3,6 +3,7 @@ AR = ar
LD = ld LD = ld
EXECUTABLE = factor EXECUTABLE = factor
VERSION = 0.92
IMAGE = factor.image IMAGE = factor.image
BUNDLE = Factor.app BUNDLE = Factor.app

6
extra/tools/walker/walker-tests.factor
View File

@ -1,7 +1,7 @@
USING: tools.walker io io.streams.string kernel math USING: tools.walker io io.streams.string kernel math
math.private namespaces prettyprint sequences tools.test math.private namespaces prettyprint sequences tools.test
continuations math.parser threads arrays tools.walker.debug continuations math.parser threads arrays tools.walker.debug
generic.standard ; generic.standard sequences.private kernel.private ;
IN: tools.walker.tests IN: tools.walker.tests
[ { } ] [ [ { } ] [
@ -50,6 +50,10 @@ IN: tools.walker.tests
[ 5 6 number= ] test-walker [ 5 6 number= ] test-walker
] unit-test ] unit-test
[ { 0 } ] [
[ 0 { array-capacity } declare ] test-walker
] unit-test
[ { f } ] [ [ { f } ] [
[ "XYZ" "XYZ" mismatch ] test-walker [ "XYZ" "XYZ" mismatch ] test-walker
] unit-test ] unit-test

3
vm/quotations.c
View File

@ -422,7 +422,10 @@ F_FIXNUM quot_code_offset_to_scan(CELL quot, F_FIXNUM offset)
} }
if(jit_ignore_declare_p(untag_object(array),i)) if(jit_ignore_declare_p(untag_object(array),i))
{ {
if(offset == 0) return i;
i++; i++;
break; break;
} }
default: default: