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]] ]