Add REPL printer for assets.

1 files changed, 10 insertions, 0 deletions

diff --git a/catbird/repl.scm b/catbird/repl.scm
index c08ef20..7ca62ee 100644
--- a/catbird/repl.scm
+++ b/catbird/repl.scm
@@ -19,6 +19,7 @@
 ;;
 ;;; Code:
 (define-module (catbird repl)
+  #:use-module (catbird asset)
   #:use-module (catbird line-editor)
   #:use-module (catbird kernel)
   #:use-module (catbird mode)
@@ -101,6 +102,15 @@
                                     (loop (+ i 1)))))))
                  ,(make <label> #:text ")"))))
 
+(define-method (repl-print (asset <asset>))
+  (make <horizontal-container>
+    #:children
+    (list (make <label>
+            #:text (format #f "#<~a " (class-name (class-of asset))))
+          (repl-print (artifact asset))
+          (make <label>
+            #:text ">"))))
+
 (define <texture> (class-of null-texture))
 (define-method (repl-print (texture <texture>))
   (make <sprite> #:texture texture))