From f3a8d1b745285a9667041c09f4ac6d5ff738570f Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 18 Feb 2010 16:50:57 +0100
Subject: [PATCH] eval.c tweaks

* libguile/eval.c (eval): Fix a couple of uses of scm_cdr that should
  use CDR.
---
 libguile/eval.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/eval.c b/libguile/eval.c
index afe685267..ea8a77153 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -356,7 +356,7 @@ eval (SCM x, SCM env)
       else
         {
           while (scm_is_pair (env))
-            env = scm_cdr (env);
+            env = CDR (env);
           return SCM_VARIABLE_REF
             (scm_memoize_variable_access_x (x, CAPTURE_ENV (env)));
         }
@@ -373,7 +373,7 @@ eval (SCM x, SCM env)
         else
           {
             while (scm_is_pair (env))
-              env = scm_cdr (env);
+              env = CDR (env);
             SCM_VARIABLE_SET
               (scm_memoize_variable_access_x (x, CAPTURE_ENV (env)),
                val);