mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

* snarf-check-and-output-texi (do-argpos): complain to the stderr,

Browse source 
not stdout.  thanks to Dale P. Smith!
(nice-sig): cosmetic fix.
This commit is contained in:
Michael Livshin 2001-07-11 22:39:59 +00:00
parent adc166f3ab
commit c618bf2e4f
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
scripts/ChangeLog
View file

@ -1,3 +1,9 @@
2001-07-12 Michael Livshin <mlivshin@bigfoot.com>
* snarf-check-and-output-texi (do-argpos): complain to the stderr,
not stdout. thanks to Dale P. Smith!
(nice-sig): cosmetic fix.
2001-07-09 Thien-Thi Nguyen <ttn@revel.glug.org> 2001-07-09 Thien-Thi Nguyen <ttn@revel.glug.org>
* PROGRAM, generate-autoload, use2dot, punify, display-commentary, * PROGRAM, generate-autoload, use2dot, punify, display-commentary,

5
scripts/snarf-check-and-output-texi
View file

@ -168,7 +168,7 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
(if (> opt 0) (if (> opt 0)
(format #t "]")) (format #t "]"))
(if (> var 0) (if (> var 0)
(format #t "~A. ~A" (if (< var all) " " "") (format #t " . ~A"
(car (last-pair *args*))))))))))))))) (car (last-pair *args*)))))))))))))))
(format #t "\n ~A\n" *function-name*) (format #t "\n ~A\n" *function-name*)
(format #t "@c snarfed from ~A:~A\n" *file* *line*) (format #t "@c snarfed from ~A:~A\n" *file* *line*)
@ -263,7 +263,8 @@ exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
(when idx (when idx
(unless (= (+ idx 1) pos) (unless (= (+ idx 1) pos)
(display (format #f "~A:~A: wrong position for argument ~A: ~A (should be ~A)\n" (display (format #f "~A:~A: wrong position for argument ~A: ~A (should be ~A)\n"
*file* line name pos (+ idx 1))))))) *file* line name pos (+ idx 1))
(current-error-port))))))
(x #f))) (x #f)))
(define do-command (define do-command