From bbf0a8d266d517faccc9c74fe9a89e198ce4d821 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 28 May 2009 12:28:52 -0500 Subject: [PATCH] fix stack effect --- core/classes/parser/parser.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/classes/parser/parser.factor b/core/classes/parser/parser.factor index bd2e6ea4a0..0697537d12 100644 --- a/core/classes/parser/parser.factor +++ b/core/classes/parser/parser.factor @@ -6,7 +6,7 @@ IN: classes.parser : save-class-location ( class -- ) location remember-class ; -: create-class-in ( word -- word ) +: create-class-in ( string -- word ) current-vocab create dup save-class-location dup predicate-word dup set-word save-location ;