From 77a47304368cd716c05507ce9cebbbab3a2b965a Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@google.com>
Date: Tue, 12 Jul 2022 21:44:41 -0700
Subject: Remove redundant parentheses in the match macro.

I'm marginally reducing verbosity with this change,
without sacrificing readability.
---
 csc/cps.csc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'csc/cps.csc')

diff --git a/csc/cps.csc b/csc/cps.csc
index 827f4b7..a5b7d3b 100644
--- a/csc/cps.csc
+++ b/csc/cps.csc
@@ -116,9 +116,9 @@
 
     (define (to-cps expr continuation)
       (match expr
-        (_ (when (or (constant? expr)
-                     (lexical-ref? expr)
-                     (library-ref? expr)))
+        (_ when (or (constant? expr)
+                    (lexical-ref? expr)
+                    (library-ref? expr))
           (continuation expr))
         ((% %lexical-set ref arg)
           (to-cps
-- 
cgit v1.3.1