Remove old append

vinc · Oct 27, 2022 · 40981ee · 40981ee
1 parent d360774
commit 40981ee
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 7 deletions.
diff --git a/dsk/lib/lisp/core.lsp b/dsk/lib/lisp/core.lsp
@@ -61,10 +61,6 @@
       (f (first ls))
       (map f (rest ls)))))
 
-(def (append x y)
-  (if (nil? x) y
-    (cons (first x) (append (rest x) y))))
-
 (def (reverse x)
   (if (nil? x) x
     (append (reverse (rest x)) (cons (first x) '()))))

diff --git a/src/usr/lisp/env.rs b/src/usr/lisp/env.rs
@@ -284,15 +284,15 @@ pub fn default_env() -> Rc<RefCell<Env>> {
             _ => Err(Err::Reason("Expected arg to be a number".to_string()))
         }
     }));
-    data.insert("list".to_string(), Exp::Primitive(|args: &[Exp]| -> Result<Exp, Err> {
-        Ok(Exp::List(args.to_vec()))
-    }));
     data.insert("parse".to_string(), Exp::Primitive(|args: &[Exp]| -> Result<Exp, Err> {
         ensure_length_eq!(args, 1);
         let s = string(&args[0])?;
         let (_, exp) = parse(&s)?;
         Ok(exp)
     }));
+    data.insert("list".to_string(), Exp::Primitive(|args: &[Exp]| -> Result<Exp, Err> {
+        Ok(Exp::List(args.to_vec()))
+    }));
     data.insert("append".to_string(), Exp::Primitive(|args: &[Exp]| -> Result<Exp, Err> {
         let mut res = vec![];
         for arg in args {