srfi-31 rec error

[Kevin Ryde]

        * srfi-31.scm (rec): Add missing `error' to else clause.

Currently a bogus usage like "(rec #:foo)" results in an infinite
macro expansion loop (because the define-macro returns the same rec
form as it was given).  I'm assuming the message string is meant to be
part of an error call.

--- srfi-31.scm.~1.3.~  2004-07-05 09:59:56.000000000 +1000
+++ srfi-31.scm 2004-08-26 17:23:17.000000000 +1000
@@ -31,4 +31,5 @@
    ((list? arg-form)
     `(letrec ((,(car arg-form) (lambda ,(cdr arg-form) ,@body)))
        ,(car arg-form)))
-   (else "syntax error in rec form" `(rec ,arg-form ,@body))))
+   (else
+    (error "syntax error in rec form" `(rec ,arg-form ,@body)))))