summaryrefslogtreecommitdiff
path: root/module/language/scheme/compile-ghil.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/scheme/compile-ghil.scm')
-rw-r--r--module/language/scheme/compile-ghil.scm5
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)