From 151867f3fb28a79cd794391ed12511a754143f86 Mon Sep 17 00:00:00 2001
From: Naveen Michaud-Agrawal <naveen.michaudagrawal@gmail.com>
Date: Tue, 21 Nov 2023 02:35:55 +0000
Subject: [PATCH] Small hack to allow pointer warping to work

Otherwise there is a eval error on the When when since the warp uses a
statement like

```
When /obj/ points /direction/ with length /l/ at $warp ...
```
---
 virtual-programs/points-at.folk | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/virtual-programs/points-at.folk b/virtual-programs/points-at.folk
index a037f98f..ed3fb8eb 100644
--- a/virtual-programs/points-at.folk
+++ b/virtual-programs/points-at.folk
@@ -1,8 +1,10 @@
 When when /rect/ points /direction/ with length /l/ at /someone/ /lambda/ with environment /e/ {
+  if {[string match "/*" $rect]} { return }
   Wish $rect points $direction with length $l
 }
 
 When when /rect/ points /direction/ at /someone/ /lambda/ with environment /e/ {
+  if {[string match "/*" $rect]} { return }
   Wish $rect points $direction with length 1
 }