diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-06-27 16:07:19 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-06-27 16:07:19 -0700 |
| commit | fb3de91f6a24e32641a017c3f49ebb3e93bb1ddc (patch) | |
| tree | cb66f53ffdc33c3bb095f59e4002b77ccd3b3c6a | |
| parent | 513410b20983266264006ced2e247f073302f2ef (diff) | |
| download | txr-fb3de91f6a24e32641a017c3f49ebb3e93bb1ddc.tar.gz txr-fb3de91f6a24e32641a017c3f49ebb3e93bb1ddc.tar.bz2 txr-fb3de91f6a24e32641a017c3f49ebb3e93bb1ddc.zip | |
match: bad indentation.
* stdlib/match.tl (compile-scan-match): Fix wrong indentation
of let* body.
| -rw-r--r-- | stdlib/match.tl | 8 |
1 files 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)) |