17 lines
476 B
Factor
17 lines
476 B
Factor
USING: accessors debugger kernel system tools.test vocabs
|
|
vocabs.parser ;
|
|
IN: vocabs.metadata
|
|
|
|
: wrong-platform-vocab-name ( -- name )
|
|
os windows? "unix" "windows" ? ;
|
|
|
|
[
|
|
[ wrong-platform-vocab-name use-vocab ]
|
|
[ error>> unsupported-platform? ] must-fail-with
|
|
|
|
! Factor remembers that we tried to load the wrong vocab
|
|
! and this breaks f2 until we forget the vocab.
|
|
! See issue #1463.
|
|
[ wrong-platform-vocab-name forget-vocab ] try
|
|
] with-manifest
|