Give an empty result, not an error, whenever 𝕨 is longer than 𝕩 in Find

1 files changed, 1 insertions, 1 deletions

diff --git a/dzref b/dzref
index 32aad9d6..24b526b2 100755
--- a/dzref
+++ b/dzref
@@ -57,7 +57,7 @@ MarkFirst←{
 Find←{
   r←=𝕨
   ! r≤=𝕩
-  𝕨 ≡⎉r (≢𝕨) ↕⎉r 𝕩
+  𝕨 ≡⎉r ((1+r-⊸↑≢𝕩)⌊≢𝕨)⊸↕⎉r 𝕩
 }
 
 ⊐ ← ⊐              ⊘ IndexOf