Early ISA Unit tests

This commit provides some but not all unit tests for VM instructions.
All tests pass, and this commit includes modifications to logic to allow
for that.

Signed-off-by: Ava Affine <ava@sunnypup.io>

hyphae/src/heap.rs

@@ -21,6 +21,7 @@ use core::ptr::NonNull;
 use alloc::rc::Rc;
 use alloc::vec::Vec;
 use alloc::boxed::Box;
+use alloc::fmt::Debug;
 use alloc::string::String;
 
 use organelle::Number;
@@ -112,6 +113,15 @@ impl<T> Clone for Gc<T> {
     }
 }
 
+impl<T: Debug> Debug for Gc<T> {
+    fn fmt(&self, f: &mut core::fmt::Formatter<'_>) -> core::fmt::Result {
+        let refs = Rc::strong_count(unsafe { self.0.as_ref() });
+        write!(f, "<refs={refs}>: ")?;
+        write!(f, "{:?}", (*(unsafe { self.0.as_ref() })).as_ref())?;
+        Ok(())
+    }
+}
+
 impl<T> Drop for Gc<T> {
     fn drop(&mut self) {
         unsafe {
@@ -132,7 +142,7 @@ impl<T: Clone> Gc<T> {
     }
 }
 
-#[derive(PartialEq)]
+#[derive(PartialEq, Debug)]
 pub enum Datum {
     Number(Number),
     Bool(bool),
@@ -168,7 +178,7 @@ impl Clone for Datum {
     }
 }
 
-#[derive(Clone, PartialEq)]
+#[derive(Clone, PartialEq, Debug)]
 pub struct Cons(pub Option<Gc<Datum>>, pub Option<Gc<Datum>>);
 
 impl Cons {