From 301cf4e61c76b4a593f7852c4b16e6dcd55d726c Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 1 Sep 2004 23:33:16 +0000
Subject: [PATCH] (format:out): Ignore excess arguments, per common lisp.

---
 ice-9/format.scm | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/ice-9/format.scm b/ice-9/format.scm
index 63d83af9a..a8bad4ec9 100644
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -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)