/[guile]/guile/guile-core/scripts/snarf-check-and-output-texi
ViewVC logotype

Diff of /guile/guile-core/scripts/snarf-check-and-output-texi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by ossau, Tue Mar 12 21:54:52 2002 UTC revision 1.11 by mvo, Sat Oct 5 11:57:35 2002 UTC
# Line 5  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 5  exec ${GUILE-guile} -l $0 -c "(apply $ma
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
# Line 154  exec ${GUILE-guile} -l $0 -c "(apply $ma Line 154  exec ${GUILE-guile} -l $0 -c "(apply $ma
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*

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26