refactor: type

src/builtins/mod.rs

@@ -1,7 +1,8 @@
 use derive_more::Constructor;
 
-use crate::vm::{Env, Symbol, Value, AttrSet};
-use crate::value::Const;
+use crate::vm::Env;
+use crate::ty::internal::{Const, Value, AttrSet, PrimOp};
+use crate::ty::common::Symbol;
 
 pub fn env() -> Env {
     let mut env = Env::empty();
@@ -44,65 +45,3 @@ pub fn env() -> Env {
     env
 }
 
-#[derive(Debug, Clone, Constructor)]
-pub struct PrimOp {
-    name: &'static str,
-    arity: u8,
-    func: fn(Vec<Value>) -> Value,
-}
-
-impl PartialEq for PrimOp {
-    fn eq(&self, _: &Self) -> bool {
-        false
-    }
-}
-
-impl PrimOp {
-    pub fn call(self, args: Vec<Value>) -> Value {
-        if (args.len() as u8) < self.arity {
-            Value::PartialPrimOp(PartialPrimOp {
-                name: self.name,
-                arity: self.arity - args.len() as u8,
-                args,
-                func: self.func,
-            })
-        } else if args.len() as u8 == self.arity {
-            (self.func)(args)
-        } else {
-            unimplemented!()
-        }
-    }
-}
-
-#[derive(Debug, Clone)]
-pub struct PartialPrimOp {
-    name: &'static str,
-    arity: u8,
-    args: Vec<Value>,
-    func: fn(Vec<Value>) -> Value,
-}
-
-impl PartialEq for PartialPrimOp {
-    fn eq(&self, _: &Self) -> bool {
-        false
-    }
-}
-
-impl PartialPrimOp {
-    pub fn call(mut self, args: Vec<Value>) -> Value {
-        let len = args.len() as u8;
-        self.args.extend(args);
-        if len < self.arity {
-            Value::PartialPrimOp(PartialPrimOp {
-                name: self.name,
-                arity: self.arity - len,
-                args: self.args,
-                func: self.func,
-            })
-        } else if len == self.arity {
-            (self.func)(self.args)
-        } else {
-            unimplemented!()
-        }
-    }
-}