work in progress serialization of engine state

crates/steel-core/src/compiler/constants.rs

@@ -8,7 +8,9 @@ use crate::gc::shared::ShareableMut;
 
 use crate::gc::{Shared, SharedMut};
 use crate::parser::tryfrom_visitor::TryFromExprKindForSteelVal;
-use crate::rvals::{into_serializable_value, Result, SerializableSteelVal, SteelVal};
+use crate::rvals::{
+    into_serializable_value, Result, SerializableSteelVal, SerializationContext, SteelVal,
+};
 
 use crate::parser::{
     ast::ExprKind,
@@ -95,16 +97,12 @@ impl ConstantMap {
         SerializableConstantMap(self.to_bytes().unwrap())
     }
 
-    pub fn to_serializable_vec(
-        &self,
-        serializer: &mut std::collections::HashMap<usize, SerializableSteelVal>,
-        visited: &mut std::collections::HashSet<usize>,
-    ) -> Vec<SerializableSteelVal> {
+    pub fn to_serializable_vec(&self, ctx: &mut SerializationContext) -> Vec<SerializableSteelVal> {
         self.values
             .read()
             .iter()
             .cloned()
-            .map(|x| into_serializable_value(x, serializer, visited))
+            .map(|x| into_serializable_value(x, ctx))
             .collect::<Result<_>>()
             .unwrap()
     }

crates/steel-core/src/env.rs

@@ -155,6 +155,12 @@ impl Env {
         self.bindings.0.len()
     }
 
+    pub(crate) fn new(values: &[SteelVal]) -> Self {
+        Self {
+            bindings: SharedVectorWrapper(AtomicSharedVector::from_slice(values)),
+        }
+    }
+
     /// top level global env has no parent
     pub fn root() -> Self {
         Env {