Fix function w handling in VM FM2O

1 files changed, 3 insertions, 3 deletions

diff --git a/vm.bqn b/vm.bqn
index 5d9b8494..b445a17d 100644
--- a/vm.bqn
+++ b/vm.bqn
@@ -96,9 +96,9 @@ ops ← ((!∘"Unknown opcode")˙⊣´⊢)¨ ⊔˝ ⍉> ⟨
   26‿(       {s𝕊e: s.Push { f‿m  : F _m    } s.Pop 2 }˙)
   27‿(       {s𝕊e: s.Push { f‿m‿g: F _m_ g } s.Pop 3 }˙)
   # Application with Nothing
-  18‿(       {s𝕊e: s.Push {   f‿x:                    F⍟(nothing⊸≢) x } s.Pop 2 }˙) # Like 16
-  19‿(       {s𝕊e: s.Push { w‿f‿x: (nothing≢w˙)◶⟨F,w⊸F⟩⍟(nothing⊸≢) x } s.Pop 3 }˙) # Like 17
-  23‿(       {s𝕊e: s.Push { f‿g‿h: {f≡nothing?G H;F G H}              } s.Pop 3 }˙) # Like 21
+  18‿(       {s𝕊e: s.Push {   f‿x:                     F⍟(nothing⊸≢) x } s.Pop 2 }˙) # Like 16
+  19‿(       {s𝕊e: s.Push { w‿f‿x: (nothing≢w˙)◶⟨F,w˙⊸F⟩⍟(nothing⊸≢) x } s.Pop 3 }˙) # Like 17
+  23‿(       {s𝕊e: s.Push { f‿g‿h: {f≡nothing?G H;F G H}               } s.Pop 3 }˙) # Like 21
   22‿(       {s𝕊e: "Left argument required" ! nothing≢s.Peek@ }˙)
   # Variables
   32‿{v←VO𝕩⋄ {s𝕊e: s.Push (V e).Get @ } }