diff options
| -rw-r--r-- | catbird/repl.scm | 10 |
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)) |