Rebol Programming/in-dir

= USAGE: = IN-DIR dir block

= DESCRIPTION: = Evaluate a block while in a directory.

IN-DIR is a function value. = ARGUMENTS: =
 * dir -- Directory to change to (changed back after) (Type: file)
 * block -- Block to evaluate (Type: block)

= (SPECIAL ATTRIBUTES) =
 * throw

= SOURCE CODE = in-dir: func [ "Evaluate a block while in a directory." [throw] dir [file!] "Directory to change to (changed back after)" block [block!] "Block to evaluate" /local old-dir ][ old-dir: what-dir change-dir dir also do block change-dir old-dir ]