From e8a14e107c4865d1d1f6cf4895c9e11015ed3503 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 31 Oct 2021 19:59:09 -0400 Subject: Fix function w handling in VM FM2O --- vm.bqn | 6 +++--- 1 file 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 @ } } -- cgit v1.2.3