REBOL [
    Title: "Arguments"
    Date: 22-Mar-2002
    Name: Arguments
    Version: 1.0.0
    File: %Arguments.r
    Author: "Andrew Martin"
    Purpose: "Returns the arguments of the function."
    Email: Al.Bri@xtra.co.nz
    Web: http://valley.150m.com
    Category: [util script 5]
]

Arguments: function [
    "Returns the arguments of the function."
    F [any-function!]
    ] [
    Arguments
    ] [
    Arguments: make block! 2
    foreach Argument pick :F 1 [
        if refinement? :Argument [
            break
            ]
        append Arguments :Argument
        ]
    Arguments
    ]