From 1c382605b23f42937d588a6c58edaf4a97f5a50b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 2 Dec 2008 00:24:08 -0600
Subject: [PATCH] Fix typo
---
basis/locals/locals.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/locals/locals.factor b/basis/locals/locals.factor
index ee6f0d2166..adbd2ad063 100644
--- a/basis/locals/locals.factor
+++ b/basis/locals/locals.factor
@@ -373,7 +373,7 @@ M: wlet local-rewrite*
let-rewrite ;
: parse-locals ( -- vars assoc )
- scan ")" parse-effect
+ ")" parse-effect
word [ over "declared-effect" set-word-prop ] when*
in>> [ dup pair? [ first ] when ] map make-locals dup push-locals ;