From 904f5d528ebc2096702f6ddd13d54f3bc971857d Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Tue, 14 Dec 1999 21:28:28 +0000
Subject: [PATCH] Fix

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

diff --git a/libguile/guile-doc-snarf.in b/libguile/guile-doc-snarf.in
index 4570acc79..9ace981de 100755
--- a/libguile/guile-doc-snarf.in
+++ b/libguile/guile-doc-snarf.in
@@ -1,7 +1,7 @@
 #!/bin/sh
 # Extract the initialization actions for builtin things.
 
-filename=`basename $1`; shift
+filename=$1; shift
 
 # we need to be sure that the .x file exists
 # since the .c/.cc file may include it
@@ -22,4 +22,3 @@ test -n "${CPP+set}" || CPP="@CPP@"
 ## need to know if CPP exits with a non-zero status.
 ${CPP} -DSCM_MAGIC_SNARFER "$@" > ${temp} || exit $?
 < ${temp} awk -f `dirname $0`/guile-snarf.awk `basename $filename`
-