X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Ftransform.c;fp=src%2Ftransform.c;h=77aa0a299eb722a0deee32556d848ace239d7a5a;hb=1a44d77d50f4fb37c0410eed04b82303624ea2ec;hp=c35133fa2578953bc5e21bf5cff9f56f877b8cc9;hpb=dda6367c9eac71da8f2ab1c60b3df60f19ce4755;p=debian%2Ftar

diff --git a/src/transform.c b/src/transform.c
index c35133fa..77aa0a29 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;
+}