From fb3de91f6a24e32641a017c3f49ebb3e93bb1ddc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 27 Jun 2024 16:07:19 -0700 Subject: match: bad indentation. * stdlib/match.tl (compile-scan-match): Fix wrong indentation of let* body. --- stdlib/match.tl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/stdlib/match.tl b/stdlib/match.tl index 12479fab..eb283771 100644 --- a/stdlib/match.tl +++ b/stdlib/match.tl @@ -566,10 +566,10 @@ vars (cons success-p cm.(get-vars)) var-exprs (list loop) test-expr success-p))) - (new compiled-match - pattern scan-syntax - obj-var obj-var - guard-chain (list guard)))))) + (new compiled-match + pattern scan-syntax + obj-var obj-var + guard-chain (list guard)))))) (defun compile-exprs-match (exprs-syntax uexprs var-list) (let ((upats (cdr exprs-syntax)) -- cgit v1.2.3