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 ... ```
FolkComputer · Nov 21, 2023 · 151867f · 151867f
1 parent b8a874e
commit 151867f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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
 }