From 548cc54bc27b92c3a35a79d1af7440fbad896752 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 9 Oct 2023 13:47:36 +0100
Subject: ccwl: In macro expansion, use eval instead of module introspection.

eval is not just more portable but also more flexible. It lets us
allow steps with expressions that evaluate to commands. Sadly, we do
not yet properly support commands defined in lexical scope.

* ccwl/ccwl.scm (function-object): Use eval instead of module
introspection.
* tests/ccwl.scm ("allow steps with expressions that evaluate to
commands"): New test.
---
 tests/ccwl.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'tests')

diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index 9aa00f3..2207200 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -139,4 +139,10 @@
   (workflow ()
     (print-with-default)))
 
+(test-assert "allow steps with expressions that evaluate to commands"
+  (workflow ((message #:type string))
+    ((and #t print)
+     (print)
+     #:message message)))
+
 (test-end "ccwl")
-- 
cgit v1.2.3