From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 21 Dec 2001 18:18:21 +0000 (+0000)
Subject: Fix bug: looking up a macro returns the trap, not the transformer.
X-Git-Tag: 20090517-FFI~2322
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=10c66565cb293dd955ca11b20fc5c553dcc63cd1;p=mit-scheme.git

Fix bug: looking up a macro returns the trap, not the transformer.
---

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index 283d2872a..ec55a9ff8 100644
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: lookup.c,v 9.67 2001/12/21 04:36:07 cph Exp $
+$Id: lookup.c,v 9.68 2001/12/21 18:18:21 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -238,7 +238,7 @@ lookup_variable_cache (SCHEME_OBJECT cache, SCHEME_OBJECT * value_ret)
       return (ERR_UNBOUND_VARIABLE);
 
     case TRAP_MACRO:
-      (*value_ret) = (GET_TRAP_EXTRA (value));
+      (*value_ret) = value;
       return (ERR_MACRO_BINDING);
 
     default: