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

Fixes

db4
Slava Pestov 2007-12-22 15:47:10 -05:00
parent 07a4022d62
commit 3e27a82f8e
3 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -140,7 +140,7 @@ factor: $(DLL_OBJS) $(EXE_OBJS)
clean: clean:
rm -f vm/*.o rm -f vm/*.o
rm libfactor.a rm -f libfactor.a
vm/resources.o: vm/resources.o:
windres vm/factor.rs vm/resources.o windres vm/factor.rs vm/resources.o

20
core/parser/parser-tests.factor
View File

@ -343,16 +343,26 @@ IN: temporary
] catch [ redefine-error? ] is? ] catch [ redefine-error? ] is?
] unit-test ] unit-test
[ t ] [ [ ] [
[ "IN: temporary TUPLE: class-fwd-test ;"
"IN: temporary \\ class-fwd-test TUPLE: class-fwd-test ;"
<string-reader> "redefining-a-class-3" parse-stream drop <string-reader> "redefining-a-class-3" parse-stream drop
] catch [ forward-error? ] is?
] unit-test ] unit-test
[ t ] [ [ t ] [
[ [
"IN: temporary \\ class-fwd-test TUPLE: class-fwd-test ; SYMBOL: class-fwd-test" "IN: temporary \\ class-fwd-test"
<string-reader> "redefining-a-class-3" parse-stream drop
] catch [ forward-error? ] is?
] unit-test
[ ] [
"IN: temporary TUPLE: class-fwd-test ; SYMBOL: class-fwd-test"
<string-reader> "redefining-a-class-3" parse-stream drop
] unit-test
[ t ] [
[
"IN: temporary \\ class-fwd-test"
<string-reader> "redefining-a-class-3" parse-stream drop <string-reader> "redefining-a-class-3" parse-stream drop
] catch [ forward-error? ] is? ] catch [ forward-error? ] is?
] unit-test ] unit-test

2
core/parser/parser.factor
View File

@ -237,7 +237,7 @@ M: no-word summary
: forward-reference? ( word -- ? ) : forward-reference? ( word -- ? )
{ {
{ [ dup old-definitions get key? not ] [ f ] } { [ dup old-definitions get key? over <class-definition> old-definitions get key? or not ] [ f ] }
{ [ dup new-definitions get key? ] [ f ] } { [ dup new-definitions get key? ] [ f ] }
{ [ dup <class-definition> new-definitions get key? ] [ f ] } { [ dup <class-definition> new-definitions get key? ] [ f ] }
{ [ t ] [ t ] } { [ t ] [ t ] }