From 19960570a391672f909c70ca973ce662238fd5c2 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 30 Apr 2023 10:21:31 -0400
Subject: Add REPL printer for assets.

---
 catbird/repl.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

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))
-- 
cgit v1.2.3