5 |
!# |
!# |
6 |
;;; snarf-check-and-output-texi --- called by the doc snarfer. |
;;; snarf-check-and-output-texi --- called by the doc snarfer. |
7 |
|
|
8 |
;; Copyright (C) 2001 Free Software Foundation, Inc. |
;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. |
9 |
;; |
;; |
10 |
;; This program is free software; you can redistribute it and/or |
;; This program is free software; you can redistribute it and/or |
11 |
;; modify it under the terms of the GNU General Public License as |
;; modify it under the terms of the GNU General Public License as |
154 |
(if (and (not (eqv? *snarf-type* 'register)) |
(if (and (not (eqv? *snarf-type* 'register)) |
155 |
(not (= (length *args*) all))) |
(not (= (length *args*) all))) |
156 |
(error (format #f "~A:~A: ~A's C implementation takes ~A args (should take ~A)" |
(error (format #f "~A:~A: ~A's C implementation takes ~A args (should take ~A)" |
157 |
*file* *line* name (length *args*) all))) |
*file* *line* *function-name* (length *args*) all))) |
158 |
(let ((nice-sig |
(let ((nice-sig |
159 |
(if (eq? *snarf-type* 'register) |
(if (eq? *snarf-type* 'register) |
160 |
*function-name* |
*function-name* |