summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-10-05 11:57:35 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-10-05 11:57:35 +0000
commitf4e093308a9e84c7f2352df6bda98040e6762b04 (patch)
tree9c6492e15366e87edc341fc9fda0780205dd1c7d
parentd2d414843b344b6b6beb158d5676650b6fc66d23 (diff)
downloadguile-f4e093308a9e84c7f2352df6bda98040e6762b04.tar.gz
(end-multiline): Use '*function-name*' instead of nonexisting 'name'.
-rwxr-xr-xscripts/snarf-check-and-output-texi4
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi
index d669cab86..a74eee08c 100755
--- a/scripts/snarf-check-and-output-texi
+++ b/scripts/snarf-check-and-output-texi
@@ -5,7 +5,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
!#
;;; snarf-check-and-output-texi --- called by the doc snarfer.
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@ -154,7 +154,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
(if (and (not (eqv? *snarf-type* 'register))
(not (= (length *args*) all)))
(error (format #f "~A:~A: ~A's C implementation takes ~A args (should take ~A)"
- *file* *line* name (length *args*) all)))
+ *file* *line* *function-name* (length *args*) all)))
(let ((nice-sig
(if (eq? *snarf-type* 'register)
*function-name*