From: Marius Vollmer <mvo@zagadka.de>
Date: Tue, 16 Apr 2002 20:12:10 +0000 (+0000)
Subject: Install the trap for removing $cleanfile only when the value of
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/3be0d96d0f9d79a65b92824736be0a295e9386b7

Install the trap for removing $cleanfile only when the value of
$cleanfile is actually known.
---

diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in
index 67fbddda7..aaa6926d6 100644
--- a/libguile/guile-snarf.in
+++ b/libguile/guile-snarf.in
@@ -107,7 +107,7 @@ cpp_ok_p=false
 temp="/tmp/snarf.$$"
 if [ x"$CPP" = x ] ; then cpp="@CPP@" ; else cpp="$CPP" ; fi
 
-trap "rm -f $temp $clean_infile" 0 1 2 15
+trap "rm -f $temp" 0 1 2 15
 
 if [ ! "$outfile" = "-" ]; then
     self_blind_regexp='^#include ".*'`basename $outfile`'"'
@@ -117,6 +117,7 @@ if [ ! "$outfile" = "-" ]; then
                                         # use .c to satisfy cpp heuristics.
 
     # clean input file
+    trap "rm -f $cleanfile" 0 1 2 15
     grep -v "$self_blind_regexp" $infile > $clean_infile
     modern_snarf "$@" $clean_infile > $outfile
 else