From e92b0920b8f9523d89779edbab563ac076b60387 Mon Sep 17 00:00:00 2001
From: Cristobal Sciutto <cristobal.sciutto@gmail.com>
Date: Fri, 27 Oct 2023 17:54:10 -0400
Subject: neighbor callback

---
 virtual-programs/intersect.folk | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/intersect.folk b/virtual-programs/intersect.folk
index 7755acbd..1aea9695 100644
--- a/virtual-programs/intersect.folk
+++ b/virtual-programs/intersect.folk
@@ -25,4 +25,8 @@ When /someone/ wishes /p/ has neighbors & /p/ has region /r/ & /p2/ has region /
     #Display::stroke [list [list $b2MaxX $b2MaxY] {500 500}] 3 white
     #Display::stroke [list [list $b2MinX $b2MinY] [list $b2MaxX $b2MaxY]] 10 blue
   }
-}
\ No newline at end of file
+}
+
+When when /p/ has neighbor /n/ /lambda/ with environment /e/ {
+  Wish $p has neighbors
+}
-- 
cgit v1.2.3