guile-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: i18n, gettext support?


From: Kevin Ryde
Subject: Re: i18n, gettext support?
Date: Thu, 02 Sep 2004 09:31:39 +1000
User-agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3 (gnu/linux)

I removed this bit to ignore excess arguments, I think it's enough.

--- format.scm.~1.23.~  2004-09-02 09:15:16.000000000 +1000
+++ format.scm  2004-09-02 09:27:37.000000000 +1000
@@ -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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]