diff options
| -rw-r--r-- | vm.bqn | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 @ } } |