From 01703b9a42e4dac6ae83127ba8fc224e6f581c92 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Wed, 25 Jun 2008 18:20:19 +0200
Subject: Fix a crash upon looking up declarations in the lexical context.

---
 MLKInterpreter.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'MLKInterpreter.m')

diff --git a/MLKInterpreter.m b/MLKInterpreter.m
index fdba4be..79b8794 100644
--- a/MLKInterpreter.m
+++ b/MLKInterpreter.m
@@ -151,7 +151,7 @@ static MLKSymbol *_DEFMACRO;
               if ([[body car] isKindOfClass:[MLKCons class]]
                   && [[body car] car] == DECLARE)
                 {
-                  declarations = [body car];
+                  declarations = [[body car] cdr];
                   body = [body cdr];
                 }
               else
-- 
cgit v1.2.3