REBOL Programming/cd

USAGE:

CD 'path 

DESCRIPTION:

Change directory (shell shortcut function).

CD is a function value.

ARGUMENTS

• path -- Accepts %file, :variables and just words (as dirs) (Type: file word path unset string paren)

(SPECIAL ATTRIBUTES)

• catch

SOURCE CODE

cd: func [
    "Change directory (shell shortcut function)." 
    [catch] 
    'path [file! word! path! unset! string! paren!] "Accepts %file, :variables and just words (as dirs)"
][
    if paren? get/any 'path [set/any 'path do path] 
    switch/default type?/word get/any 'path [
        unset! [print what-dir] 
        file! [change-dir path] 
        string! [change-dir to-rebol-file path] 
        word! path! [change-dir to-file path]
    ] [throw-error 'script 'expect-arg reduce ['cd 'path type? get/any 'path]]
]