From 38476238d304af8ed4016ea9129431352ac31307 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 7 Apr 2002 22:23:48 +0000
Subject: [PATCH] guile-snarf.in: Install the trap for removing $cleanfile only
 when the value of $cleanfile is actually known.

---
 libguile/guile-snarf.in | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/libguile/guile-snarf.in b/libguile/guile-snarf.in
index 942591465..cb8d4d1e2 100644
--- a/libguile/guile-snarf.in
+++ b/libguile/guile-snarf.in
@@ -33,7 +33,7 @@
 # If there are errors during processing, delete OUTFILE and exit with
 # non-zero status.
 #
-# During snarfing, the pre-processor macro @code{SCM_MAGIC_SNARFER} is
+# During snarfing, the pre-processor macro SCM_MAGIC_SNARFER is
 # defined.
 #
 # If env var CPP is set, use its value instead of the C pre-processor
@@ -74,7 +74,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`'"'
@@ -83,6 +83,7 @@ if [ ! "$outfile" = "-" ] ; then
                                         # (e.g., see libguile/eval.c).
                                         # 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