defsubst

[bpt/guile.git] / module / srfi / srfi-37.scm

diff --git a/module/srfi/srfi-37.scm b/module/srfi/srfi-37.scm
index 5e6d512..3f654af 100644 (file)
--- a/module/srfi/srfi-37.scm
+++ b/module/srfi/srfi-37.scm
@@ -1,11 +1,11 @@
 ;;; srfi-37.scm --- args-fold
 
-;;     Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+;;     Copyright (C) 2007, 2008, 2013 Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
 ;; License as published by the Free Software Foundation; either
-;; version 2.1 of the License, or (at your option) any later version.
+;; version 3 of the License, or (at your option) any later version.
 ;;
 ;; This library is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -145,6 +145,9 @@ program-arguments in ARGS, as decided by the OPTIONS'
             (let ((result (cadr args)))
               (set! args (cddr args))
               result))
+            ((pair? args)
+             (set! args (cdr args))
+             #f)
            (else #f)))
 
     ;; Interpret the short-option at index POSITION in (car ARGS),