7837 - printing s-expressions

1 files changed, 6 insertions, 0 deletions

diff --git a/baremetal/shell/cell.mu b/baremetal/shell/cell.mu
index 2e1beb0e..8627af1c 100644
--- a/baremetal/shell/cell.mu
+++ b/baremetal/shell/cell.mu
@@ -28,3 +28,9 @@ fn new-number _out: (addr handle cell) {
   var type/ecx: (addr int) <- get out-addr, type
   copy-to *type, 1/number
 }
+
+fn new-pair _out: (addr handle cell) {
+  var out/eax: (addr handle cell) <- copy _out
+  allocate out
+  # new cells have type pair by default
+}