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

vocabs.loader: prevent create-vocab if check-vocab fails.

flac
John Benediktsson 2020-02-12 08:42:56 -08:00 committed by Steve Ayerhart
parent 5a6181ad48
commit 7bb47a28bd
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/vocabs/loader/loader-tests.factor
View File

@ -1,7 +1,8 @@
USING: accessors compiler.units continuations debugger USING: accessors compiler.units continuations debugger
definitions eval io.streams.string kernel math namespaces parser definitions eval io.streams.string kernel math namespaces parser
prettyprint sequences sets source-files tools.test vocabs prettyprint sequences sets source-files system tools.test vocabs
vocabs.files vocabs.loader vocabs.parser vocabs.refresh words ; vocabs.files vocabs.loader vocabs.metadata vocabs.parser
vocabs.refresh words ;
IN: vocabs.loader.tests IN: vocabs.loader.tests
! This vocab should not exist, but just in case... ! This vocab should not exist, but just in case...
@ -192,3 +193,6 @@ forget-junk
[ [
"mnop" [ "vocabs.loader.test." swap suffix forget-vocab ] each "mnop" [ "vocabs.loader.test." swap suffix forget-vocab ] each
] with-compilation-unit ] with-compilation-unit
[ os unix? "windows" "unix" ? require ]
[ error>> unsupported-platform? ] must-fail-with

4
core/vocabs/loader/loader.factor
View File

@ -159,7 +159,9 @@ M: vocab (require)
M: vocab-link (require) M: vocab-link (require)
vocab-name (require) ; vocab-name (require) ;
M: string (require) create-vocab (require) ; M: string (require)
dup check-vocab-hook get call( vocab -- )
create-vocab (require) ;
PRIVATE> PRIVATE>