mes: Single environment lookup for variables, SICP chapter 3.
[mes.git] / module / mes / display.mes
index beb2b0757c62a1e6aac56a18b7d0dc82fb31125d..e3b19ba8e7037b92d52446ab5d0298d1f6eddf93 100644 (file)
         (display "#<macro " port)
         (display (core:cdr x) port)
         (display ">" port))
+       ((variable? x)
+        (display "#<variable " port)
+        (if (variable-global? x)
+            (display "*global* " port))
+        (display (car (core:car x)) port)
+        (display ">" port))
        ((number? x)
         (display (number->string x) port))
        ((pair? x)