From 6615b5775edad4b372b0d5c30505e7a754a30e64 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 24 Feb 2023 08:04:36 -0500
Subject: Add ,seagull-expand meta-command.

---
 chickadee/graphics/seagull.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/chickadee/graphics/seagull.scm b/chickadee/graphics/seagull.scm
index 408dbc4..8409503 100644
--- a/chickadee/graphics/seagull.scm
+++ b/chickadee/graphics/seagull.scm
@@ -3414,6 +3414,11 @@ vec4 texture(samplerCube tex, vec3 coord) {
 ;;; REPL integration
 ;;;
 
+(define-meta-command ((seagull-expand chickadee) repl stage exp)
+  "seagull-expand STAGE EXP
+Run the expander on EXP for shader STAGE."
+  (pretty-print (expand exp stage (empty-env))))
+
 (define-meta-command ((seagull-inspect chickadee) repl module)
   "seagull-inspect MODULE
 Show the intermediate compiled form of MODULE."
-- 
cgit v1.2.3