Permalink
Browse files

fixing bug where I accidentally broke normal var definitions

  • Loading branch information...
1 parent 5c55e70 commit e1bc61d724ba779dcf4f3e8ca7e925bc98237722 @fitzgen committed Feb 9, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 scheme.adb
View
@@ -1314,7 +1314,7 @@ procedure Scheme is
function Definition_Value (Expr : Access_Object) return Access_Object is
begin
- if Is_Symbol(Expr) then
+ if Is_Symbol(Cadr(Expr)) then
return Caddr(Expr);
else
return Make_Lambda(Cdadr(Expr), Cddr(Expr));

0 comments on commit e1bc61d

Please sign in to comment.