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

Fix bogus error

db4
Slava Pestov 2008-05-20 17:40:43 -05:00
parent 7e4a34ca3e
commit 2090789378
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/symbols/symbols-tests.factor
View File

@ -1,4 +1,4 @@
USING: kernel symbols tools.test parser generic words ; USING: kernel symbols tools.test parser generic words accessors ;
IN: symbols.tests IN: symbols.tests
[ ] [ SYMBOLS: a b c ; ] unit-test [ ] [ SYMBOLS: a b c ; ] unit-test
@ -13,3 +13,8 @@ DEFER: blah
[ f ] [ \ blah generic? ] unit-test [ f ] [ \ blah generic? ] unit-test
[ t ] [ \ blah symbol? ] unit-test [ t ] [ \ blah symbol? ] unit-test
[ "IN: symbols.tests USE: symbols SINGLETONS: blah blah blah ;" eval ]
[ error>> error>> def>> \ blah eq? ]
must-fail-with

2
extra/symbols/symbols.factor
View File

@ -10,5 +10,5 @@ IN: symbols
: SINGLETONS: : SINGLETONS:
";" parse-tokens ";" parse-tokens
[ create-class-in dup save-location define-singleton-class ] each ; [ create-class-in define-singleton-class ] each ;
parsing parsing