From 79bb353553756604def9c494b13a9446887bc2e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Sat, 19 Oct 2024 20:13:01 -0300
Subject: Make surrounded relevant

---
 extra.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'extra.lisp')

diff --git a/extra.lisp b/extra.lisp
index 67d057c..4a67d84 100644
--- a/extra.lisp
+++ b/extra.lisp
@@ -51,8 +51,8 @@
                nothing)))
         (cons v vn)))
 
-(defun surrounded (p left right)
+(defun surrounded (p left &optional right)
   (comp ((_ left)
          (body p)
-         (_ right))
+         (_ (or right left)))
         body))
-- 
cgit v1.2.3