X-Git-Url: https://git.brokenzipper.com/gitweb?a=blobdiff_plain;f=src%2Ftransform.c;h=77aa0a299eb722a0deee32556d848ace239d7a5a;hb=03858cf583ce299b836d8a848967ce290a6bf303;hp=c35133fa2578953bc5e21bf5cff9f56f877b8cc9;hpb=f6edb92580aa886a2a0189463c19189a050dc62d;p=chaz%2Ftar

diff --git a/src/transform.c b/src/transform.c
index c35133f..77aa0a2 100644
--- a/src/transform.c
+++ b/src/transform.c
@@ -628,3 +628,9 @@ transform_name (char **pinput, int type)
 {
   return transform_name_fp (pinput, type, NULL, NULL);
 }
+
+bool
+transform_program_p (void)
+{
+  return transform_head != NULL;
+}