Interning Orchid string literals

src/systems/io/bindings.rs

@@ -4,6 +4,7 @@ use super::instances::{
 };
 use crate::foreign::cps_box::init_cps;
 use crate::foreign::{Atom, Atomic};
+use crate::representations::OrcString;
 use crate::systems::stl::Binary;
 use crate::systems::RuntimeError;
 use crate::{ast, define_fn, ConstTree, Interner, Primitive};
@@ -53,9 +54,9 @@ define_fn! {
 define_fn! {
   WriteStr {
     stream: SinkHandle,
-    string: String
+    string: OrcString
   } => Ok(init_cps(3, IOCmdHandlePack {
-    cmd: WriteCmd::WStr(string.clone()),
+    cmd: WriteCmd::WStr(string.get_string()),
     handle: *stream,
   }))
 }

src/systems/io/instances.rs

@@ -105,7 +105,7 @@ impl IOHandler<ReadCmd> for (ExprInst, ExprInst) {
       ReadResult::RBin(_, Ok(bytes)) =>
         call(succ, vec![Binary(Arc::new(bytes)).atom_cls().wrap()]).wrap(),
       ReadResult::RStr(_, Ok(text)) =>
-        call(succ, vec![Literal::Str(text).into()]).wrap(),
+        call(succ, vec![Literal::Str(text.into()).into()]).wrap(),
     }
   }
 }