From 27fed2746ac01fb864002d590565766c80ee2459 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 23 Sep 2009 20:22:47 -0500 Subject: [PATCH] vocabs.generated: if quotation throws an exception, forget the new vocabulary --- basis/vocabs/generated/generated.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/vocabs/generated/generated.factor b/basis/vocabs/generated/generated.factor index 1ddcc73db2..cb1f847ece 100644 --- a/basis/vocabs/generated/generated.factor +++ b/basis/vocabs/generated/generated.factor @@ -1,13 +1,13 @@ ! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: compiler.units fry kernel vocabs vocabs.parser ; +USING: compiler.units continuations fry kernel vocabs vocabs.parser ; IN: vocabs.generated : generate-vocab ( vocab-name quot -- vocab ) [ dup vocab [ ] ] dip '[ [ [ - _ with-current-vocab + [ _ with-current-vocab ] [ ] [ forget-vocab ] cleanup ] with-compilation-unit ] keep ] ?if ; inline