diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-08-27 01:18:56 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-08-27 01:18:56 +0000 |
commit | cd184501da4a3a6a072a82f2fa5c5331ea1fa699 (patch) | |
tree | 8928be85a66381e831627bdf9d594321031d80a9 /srfi/srfi-31.scm | |
parent | 1df6de9637bd6f70ab4f894cf352fc7b3a894274 (diff) | |
download | guile-cd184501da4a3a6a072a82f2fa5c5331ea1fa699.tar.gz |
(rec): Add missing `error' to else clause.
Diffstat (limited to 'srfi/srfi-31.scm')
-rw-r--r-- | srfi/srfi-31.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/srfi/srfi-31.scm b/srfi/srfi-31.scm index 69e5c0147..e74b9c909 100644 --- a/srfi/srfi-31.scm +++ b/srfi/srfi-31.scm @@ -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))))) |