diff options
Diffstat (limited to 'module/language/scheme/compile-ghil.scm')
-rw-r--r-- | module/language/scheme/compile-ghil.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/language/scheme/compile-ghil.scm b/module/language/scheme/compile-ghil.scm index f27ae7a43..2821c1e70 100644 --- a/module/language/scheme/compile-ghil.scm +++ b/module/language/scheme/compile-ghil.scm @@ -174,8 +174,9 @@ (define syntax-error (@ (system base compile) syntax-error)) (pmatch (cdr exp) ,@clauses - (else - (syntax-error l (format #f "bad ~A" ',sym) exp)))))) + ,@(if (assq 'else clauses) '() + '((else + (syntax-error l (format #f "bad ~A" ',sym) exp)))))))) (define-scheme-translator quote ;; (quote OBJ) |