2015-08-27 21:51:40 -04:00
|
|
|
USING: accessors debugger kernel system tools.test vocabs
|
|
|
|
|
vocabs.parser ;
|
2015-08-23 21:43:36 -04:00
|
|
|
IN: vocabs.metadata
|
|
|
|
|
|
2015-08-27 21:51:40 -04:00
|
|
|
: wrong-platform-vocab-name ( -- name )
|
|
|
|
|
os windows? "unix" "windows" ? ;
|
|
|
|
|
|
2015-08-28 01:27:54 -04:00
|
|
|
[
|
|
|
|
|
[ wrong-platform-vocab-name use-vocab ]
|
|
|
|
|
[ error>> unsupported-platform? ] must-fail-with
|
2015-08-27 21:51:40 -04:00
|
|
|
|
2015-08-28 01:27:54 -04:00
|
|
|
! 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
|
