diff options
Diffstat (limited to 'module/language/ecmascript')
-rw-r--r-- | module/language/ecmascript/compile-ghil.scm | 2 |
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)) |