summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--catbird/repl.scm10
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))