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

(format:out): Ignore excess arguments, per common lisp.

Browse source
This commit is contained in:
Kevin Ryde 2004-09-01 23:33:16 +00:00
parent 260ffd6118
commit 301cf4e61c
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/format.scm
View file

@ -194,10 +194,6 @@
(let ((arg-pos (format:format-work fmt args)) (let ((arg-pos (format:format-work fmt args))
(arg-len (length args))) (arg-len (length args)))
(cond (cond
((< arg-pos arg-len)
(set! format:arg-pos (+ arg-pos 1))
(set! format:pos (string-length fmt))
(format:error "~a superfluous argument~:p" (- arg-len arg-pos)))
((> arg-pos arg-len) ((> arg-pos arg-len)
(set! format:arg-pos (+ arg-len 1)) (set! format:arg-pos (+ arg-len 1))
(display format:arg-pos) (display format:arg-pos)