Fix interactor problem when loading a vocab which has a parse error

release
Slava Pestov 2007-10-15 06:23:00 -04:00
parent 85e2d364ee
commit 18259cdaa4
1 changed files with 1 additions and 1 deletions

View File

@ -137,7 +137,7 @@ M: interactor stream-read-partial
[ restore-vars parse ] keep save-vars
] [
>r f swap set-interactor-busy? drop r>
dup [ unexpected-eof? ] is? [ drop f ] when
dup delegate unexpected-eof? [ drop f ] when
] recover
] with-scope ;