scm: Fix psyntax/keyword/optargs interaction bug.
[mes.git] / module / mes / optargs.scm
index 8f495cd2b5084cbf4c9613dc3cd3a1f99cb05116..3e3396ce91da79f5635782ff56f23d3eaa854b9c 100644 (file)
              (cond
               ((memq first keywords)
                (if (null? rest)
-                   (error "Keyword argument has no value.")
+                    (error "Keyword argument has no value:" first)
                    (next (cons (cons (keyword->symbol first)
                                      (car rest)) accum))))
               ((not allow-other-keys?)
-               (error "Unknown keyword in arguments."))
+                (error "Unknown keyword in arguments:" first))
               (else (if (null? rest)
                         accum
                         (next accum))))