feat: i forgot what i did

it was about list i think i forgot

blspc/src/compiler/compile.rs

@@ -108,17 +108,6 @@ impl Compiler {
         Ok(result)
     }
     
-    fn compile_quoted(&mut self, atom: &Vec<Sexpr>) -> Result<Vec<Instr>, String> {
-        let mut result = Vec::new();
-
-        result.push(Instr::Push {
-            value: Type::String(format!("({})", atom.iter().map(|x| format!("{}", x)).collect::<Vec<String>>().join(" "))),
-            label: self.next_label(),
-        });
-
-        Ok(result)
-    }
-    
     fn compile_atom(&mut self, atom: &Sexpr, depth: usize) -> Result<Vec<Instr>, String> {
         let mut result = Vec::new();
         
@@ -222,4 +211,40 @@ impl Compiler {
         
         Ok(result)
     }
+    
+    fn compile_quoted(&mut self, atom: &Vec<Sexpr>) -> Result<Vec<Instr>, String> {
+        let mut result = Vec::new();
+        
+        // Vec<Sexpr> -> Vec<Type>
+        let mut types = Vec::new();
+        for a in atom {
+            types.push(sexpr_to_type(a)?);
+        }
+        
+        result.push(Instr::Push {
+            value: Type::Array(types),
+            label: self.next_label(),
+        }); 
+        
+        Ok(result)
+    }
+}
+
+fn sexpr_to_type(sexpr: &Sexpr) -> Result<Type, String> {
+    match sexpr {
+        Int(i) => Ok(Type::Int(*i)),
+        Float(f) => Ok(Type::Float(*f)),
+        Str(s) => Ok(Type::String(s.clone())),
+        Boolean(b) => Ok(Type::Boolean(*b)),
+        Symbol(s) => Ok(Type::String(s.to_string())),
+        Cons(car, cdr) => {
+            let mut array = Vec::new();
+            array.push(sexpr_to_type(car)?);
+            for item in cdr {
+                array.push(sexpr_to_type(item)?);
+            }
+            Ok(Type::Array(array))
+        },
+        _ => unimplemented!(),
+    }
 }

blspc/src/vm/instr.rs

@@ -55,9 +55,9 @@ impl Type {
             Type::String(s) => s.clone(),
             Type::Array(a) => {
                 let mut s = "[".to_string();
-                for t in a {
+                for (i, t) in a.iter().enumerate() {
                     s.push_str(&t.fmt());
-                    s.push_str(", ");
+                    if i < a.len() - 1 { s.push_str(", "); }
                 }
                 s.push_str("]");
                 s
@@ -133,9 +133,9 @@ impl Display for Type {
             Type::String(s)  => write!(f, "$\"{}\"", s),
             Type::Array(a)   => {
                 write!(f, "[[ ")?;
-                for t in a {
+                for (i, t) in a.iter().enumerate() {
                     write!(f, "{}", t)?;
-                    write!(f, ", ")?;
+                    if i < a.len() - 1 { write!(f, ", ")?; }
                 }
                 write!(f, " ]]")
             }