This is a place to list rough ideas that might be patterns in the hopes that knowledgeable visitors will help out with the following tasks:
	* Refactor descriptions into simpler form.
	* Identify duplication of already existing, named patterns.
	* Identify useful new patterns that should be recognized.
	* Distinguish non-patterns that might be better listed in another category.

----

Proposed patternoid from SteveJorgensen - Proposed name: "Replace Arrow with Result Forwarding".

Say you have something like this Access VBA code.

 Public Sub SetFooTo123()
     Dim ctl As Access.Control
     For Each ctl in Me.Controls
         If ctl.Control''''''Type = acTextbox Then
             If ctl.Name Like "*Foo" Then
                 ctl.Value = 123
             End If
         End If
     Next
 End Sub
 
This is the ArrowAntiPattern.  We could get rid of the arrow using ExtractMethod, but this leads to tightly-coupled, special-purpose procedures.

My idea is that, instead, we flatten the arrow by creating a series of procedure calls, each of which produces a byproduct that is passed to the next, as below.  Refactoring is done from the outside in, like peeling an onion.  There is, for now, a bit more code here than when we started, but it's mostly more general-purpose code and much less tightly coupled.

It is now possible to test each component atomically, rather than testing all at once, or testing C, then B -> C, then A -> B -> C.  Also, it is now trivial to change the order of operations.  Note that this is starting to resemble what one might do in a Functional programming language, but without the lazy evaluation.  Note that VBA has on Continue statement for loops, so we can't flatten the mini-arrows that way.  Of course, if we then implement some sort of Functors, we could get rid of the duplicated ForEach loops, and if we extract a class for filtering and manipulating Controls collections, we could probably get rid of all the objControls passing, but those are other refactorings.

 Public Sub SetFooTo123()
     Dim ctl As Access.Control
     Dim objControls As Object
    
     Set objControls = Me.Controls
     Set objControls = ControlsO''''''fType(objControls, acTextBox)
     Set objControls = ControlsN''''''amedLike(objControls, "*Foo")
     SetV''''''alueOfControls objControls, 123

 End Sub

 Private Function ControlsO''''''fType( _
     In''''''Controls As Variant, _
     Control''''''Type As AcC''''''ontrolType _
 ) As VBA.Collection
     Dim ctl As Access.Control
     Dim colResult As New VBA.Collection
    
     For Each ctl In In''''''Controls
         If ctl.Control''''''Type = Control''''''Type Then
             colResult.Add ctl
         End If
     Next
     
     Set ControlsO''''''fType = colResult
 End Function
 
 Private Function ControlsN''''''amedLike( _
     In''''''Controls As Variant, _
     Named''''''Like As String _
 ) As VBA.Collection
     Dim ctl As Access.Control
     Dim colResult As New VBA.Collection
     
     For Each ctl In In''''''Controls
         If ctl.Name Like Named''''''Like Then
             colResult.Add ctl
         End If
     Next
    
     Set ControlsN''''''amedLike = colResult
 End Function
 
 Private Sub SetV''''''alueOfControls( _
     Controls As Variant, _
     New''''''Value As Variant _
 )
     Dim ctl As Access.Control
    
     For Each ctl In Controls
         ctl.Value = New''''''Value
     Next
    
 End Sub