From 56d545b79379bb2ef33ccff3dee7a588e212133c Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 27 Aug 2004 01:25:51 +0000
Subject: [PATCH] (rec): Add missing `error' to else clause. And fix heading
 comment.

---
 srfi/srfi-31.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/srfi/srfi-31.scm b/srfi/srfi-31.scm
index eefd37344..879080b24 100644
--- a/srfi/srfi-31.scm
+++ b/srfi/srfi-31.scm
@@ -1,4 +1,4 @@
-;;; srfi-34.scm --- Time/Date Library
+;;; srfi-31.scm --- special form for recursive evaluation
 
 ;; 	Copyright (C) 2004 Free Software Foundation, Inc.
 ;;
@@ -54,4 +54,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)))))