aboutsummaryrefslogtreecommitdiff
path: root/spec/reference.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-01-05 19:28:38 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-01-05 19:28:38 -0500
commited14bb4fc73ed7d0ab33f6a069695a90c7ead50a (patch)
tree73c81b4709cf376c7b2eb3658e5280a20f1a9404 /spec/reference.bqn
parentf5348c073887447251c24c7d46eea50227d9fdc5 (diff)
Use JoinTo in shift function definitions since complete ∾ isn't defined yet
Diffstat (limited to 'spec/reference.bqn')
-rw-r--r--spec/reference.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn
index c1c4c6cb..c68e6a53 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -319,8 +319,8 @@ Drop←{
Prefixes ← {!1≀=𝕩 β‹„ (↕1+≠𝕩)TakeΒ¨<𝕩}
Suffixes ← {!1≀=𝕩 β‹„ (↕1+≠𝕩)DropΒ¨<𝕩}
-ShiftBefore ← {!𝕨1βŠΈβŒˆβŠΈβ‰€β—‹=𝕩 β‹„ ( ≠𝕩)β†‘π•¨βˆΎπ•©}
-ShiftAfter ← {!𝕨1βŠΈβŒˆβŠΈβ‰€β—‹=𝕩 β‹„ (-≠𝕩)β†‘π•©βˆΎπ•¨}
+ShiftBefore ← {!𝕨1βŠΈβŒˆβŠΈβ‰€β—‹=𝕩 β‹„ ( ≠𝕩) ↑ 𝕨 JoinTo 𝕩}
+ShiftAfter ← {!𝕨1βŠΈβŒˆβŠΈβ‰€β—‹=𝕩 β‹„ (-≠𝕩) ↑ 𝕩 JoinTo 𝕨}
Nudge ← (1↑0β†‘βŠ’)⊸ShiftBefore
NudgeBack ← (1↑0β†‘βŠ’)⊸ShiftAfter