From e631374b0d4fc197dca311e4767c7b1b3c27c4da Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 15 Dec 2020 13:22:06 -0800 Subject: [PATCH] vocabs.parser: fix with-words. Got the cleanup quots backwards, need to be cleanup-always. --- core/vocabs/parser/parser.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/vocabs/parser/parser.factor b/core/vocabs/parser/parser.factor index 2cbd038c35..459e6ec651 100644 --- a/core/vocabs/parser/parser.factor +++ b/core/vocabs/parser/parser.factor @@ -176,7 +176,7 @@ TUPLE: rename word vocab words ; qualified-vocabs remove! drop ; : with-words ( assoc quot -- ) - [ use-words ] prepose [ ] pick '[ _ unuse-words ] cleanup ; inline + [ use-words ] prepose over '[ _ unuse-words ] [ ] cleanup ; inline TUPLE: ambiguous-use-error name words ; -- 2.34.1