1 files changed, 7 insertions, 4 deletions

diff --git a/src/lisp/expr.rs b/src/lisp/expr.rs
index 059113b..934bb4a 100644
--- a/src/lisp/expr.rs
+++ b/src/lisp/expr.rs
@@ -150,11 +150,13 @@ impl fmt::Display for LispExpr {
             LispExpr::Unit => write!(f, "()")?,
             LispExpr::Number(n) => write!(f, "{}", n)?,
             LispExpr::List(l) => {
-                for expr in l.iter() {
-                    write!(f, " {} ", expr)?
-                }
+                write!(
+                    f,
+                    "({})",
+                    &l.iter().map(|expr| format!("{}", expr)).collect::<Vec<_>>()[..].join(" ")
+                )?;
             }
-            LispExpr::StringLit(s) => write!(f, "{}", s)?,
+            LispExpr::StringLit(s) => write!(f, "{:?}", s)?,
             LispExpr::Char(c) => write!(f, "{}", c)?,
             LispExpr::BoolLit(b) => {
                 if *b {
@@ -243,6 +245,7 @@ impl TryFrom<LispExpr> for String {
     fn try_from(value: LispExpr) -> Result<Self, Self::Error> {
         match value {
             LispExpr::StringLit(i) => Ok(i),
+            LispExpr::Ident(i) => Ok(i),
             _ => Err(LispError::Eval(EvalError::TypeMismatch)),
         }
     }