summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-02-24 08:04:36 -0500
committerDavid Thompson <dthompson2@worcester.edu>2023-06-08 08:14:41 -0400
commit6615b5775edad4b372b0d5c30505e7a754a30e64 (patch)
tree2f1d0feceba78dce48de812ac4a50a5e6bea0324
parent3c2704cb6b6516a055231e19f26770631b472d6d (diff)
Add ,seagull-expand meta-command.
-rw-r--r--chickadee/graphics/seagull.scm5
1 files changed, 5 insertions, 0 deletions
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."