1 files changed, 4 insertions, 3 deletions

diff --git a/src/lisp/expr.rs b/src/lisp/expr.rs
index 9f2dc8d..1f3e0fb 100644
--- a/src/lisp/expr.rs
+++ b/src/lisp/expr.rs
@@ -3,7 +3,7 @@ use std::{cmp::PartialEq, convert::TryFrom, fmt};
 use crate::app::AppState;
 use crate::lisp::{
     error::{EvalError, LispError},
-    eval::lookup_extended,
+    eval::{lookup, Evaluator},
     number::LispNumber,
     EnvList,
 };
@@ -36,6 +36,7 @@ impl Arity {
 pub struct PrimitiveFunc {
     pub arity: Arity, // minimim arity
     pub closure: fn(&[LispExpr], &mut AppState) -> Result<LispExpr, LispError>,
+    pub name: &'static str,
 }
 
 impl PrimitiveFunc {
@@ -123,8 +124,8 @@ impl LispExpr {
             (LispExpr::Char(s), LispExpr::Char(o)) => Ok(s == o),
             (LispExpr::BoolLit(s), LispExpr::BoolLit(o)) => Ok(s == o),
             (LispExpr::Ident(s), LispExpr::Ident(o)) => {
-                let s = lookup_extended(envs, s)?;
-                let o = lookup_extended(envs, o)?;
+                let s = lookup(envs, s)?;
+                let o = lookup(envs, o)?;
                 s.compare(&o, envs)
             }
             (LispExpr::PrimitiveFunc(s), LispExpr::PrimitiveFunc(o)) => {