2600 - teach 'print' about addresses

Unfortunate that our type system requires this to be explicit..

1 files changed, 20 insertions, 0 deletions

diff --git a/081print.mu b/081print.mu
index 1683b308..8f61504e 100644
--- a/081print.mu
+++ b/081print.mu
@@ -698,3 +698,23 @@ recipe print screen:address:shared:screen, n:number -> screen:address:shared:scr
   }
   screen <- print-integer screen, n, color, bg-color
 ]
+
+# addresses
+recipe print screen:address:shared:screen, n:address:_elem -> screen:address:shared:screen [
+  local-scope
+  load-ingredients
+  color:number, color-found?:boolean <- next-ingredient
+  {
+    # default color to white
+    break-if color-found?
+    color <- copy 7/white
+  }
+  bg-color:number, bg-color-found?:boolean <- next-ingredient
+  {
+    # default bg-color to black
+    break-if bg-color-found?
+    bg-color <- copy 0/black
+  }
+  n2:number <- copy n
+  screen <- print-integer screen, n2, color, bg-color
+]