From 88c8b27ba9fbf35bddfc85d184ad99263fe13184 Mon Sep 17 00:00:00 2001
From: Vladimir Prus <ghost@cs.msu.su>
Date: Wed, 19 Feb 2003 08:00:53 +0000
Subject: [PATCH] Fix debugging output.

[SVN r17521]
---
 src/engine/compile.c | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/engine/compile.c b/src/engine/compile.c
index 728f6a441..ac0dd70af 100644
--- a/src/engine/compile.c
+++ b/src/engine/compile.c
@@ -786,6 +786,12 @@ evaluate_rule(
     rulename = l->string;
     rule = bindrule( l->string, frame->module );
 
+    /* drop the rule name */
+    l = list_pop_front( l );
+
+    /* tack the rest of the expansion onto the front of the first argument */
+    frame->args->list[0] = list_append( l, lol_get( frame->args, 0 ) );
+
     if ( DEBUG_COMPILE )
     {
         /* Try hard to indicate in which module the rule is going to execute */
@@ -815,13 +821,7 @@ evaluate_rule(
         exit_module( prev_module );
         enter_module( rule->module );
     }
-
-    /* drop the rule name */
-    l = list_pop_front( l );
-    
-    /* tack the rest of the expansion onto the front of the first argument */
-    frame->args->list[0] = list_append( l, lol_get( frame->args, 0 ) );
-    
+        
     /* record current rule name in frame */
     if ( rule->procedure )
     {