REBOL [
    Title: "Find-Block"
    Date: 3-Jul-2002
    Name: Find-Block
    Version: 1.0.0
    File: %Find-Block.r
    Author: "Andrew Martin"
    Purpose: "Finds a tuple in a block or tuple-space."
    Email: Al.Bri@xtra.co.nz
    Web: http://valley.150m.com
    Category: [util db 1]
]

Find-Block: function [
    "Finds a tuple in a block."
    Space [block!]  "The tuple-space to find it in."
    Tuple [block!]  "The tuple to find."
    ] [Index Mark] [
    if none? Index: find/only Space Tuple [
        Index: none
        parse Space [
            any [
                [Mark: into Tuple to end end (Index: Mark)]
                | block!
                ]
            end
            ]
        ]
    Index
    ]