1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00

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

This commit is contained in:
Kevin Ryde 2004-09-01 23:33:16 +00:00
parent 260ffd6118
commit 301cf4e61c

View file

@ -194,10 +194,6 @@
(let ((arg-pos (format:format-work fmt args))
(arg-len (length args)))
(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)
(set! format:arg-pos (+ arg-len 1))
(display format:arg-pos)