REBOL [
    Title: "Weekday"
    Date: 31-Aug-2002
    Name: Weekday
    Version: 1.1.2
    File: %Weekday.r
    Author: "Andrew Martin"
    Purpose: "Creates Weekday routines."
    Email: Al.Bri@xtra.co.nz
    Web: http://valley.150m.com
    Category: [util 5]
    Example: [
    Thursday? 16-Nov-2000 
    Monday 
    Weekday? 15-Aug-2002
]
]

use [Weekdays Index] [
    Weekdays: system/locale/weekdays
    forall Weekdays [
        Index: index? Weekdays system/locale/weekdays
        do reduce [
            to set-word! first Weekdays Index
            to set-word! join first Weekdays "?" 'func [
                "Is Date this weekday?" Date [date!]
                ]
            reduce [Index '= 'Date/weekday]
            ]
        ]
    ]

Weekday?: func [Date [date!]][
    pick system/locale/weekdays Date/weekday
    ]