summaryrefslogtreecommitdiff
path: root/module/language/ecmascript
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/ecmascript')
-rw-r--r--module/language/ecmascript/compile-ghil.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/module/language/ecmascript/compile-ghil.scm b/module/language/ecmascript/compile-ghil.scm
index e6c590096..a1aa11a68 100644
--- a/module/language/ecmascript/compile-ghil.scm
+++ b/module/language/ecmascript/compile-ghil.scm
@@ -46,6 +46,8 @@
(@implv ,e ,l ,sym)
,args))
+;; The purpose, you ask? To avoid non-tail recursion when expanding a
+;; long pmatch sequence.
(define-macro (ormatch x . clauses)
(let ((X (gensym)))
`(let ((,X ,x))