FEAT/FIX: improved CD shortcut command

fixes: metaeducation/rebol-issues#272 metaeducation/rebol-issues#2309
Oldes · Jun 8, 2018 · cfe4555 · cfe4555
1 parent 71a1fae
commit cfe4555
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/src/mezz/mezz-shell.r b/src/mezz/mezz-shell.r
@@ -19,13 +19,20 @@ mkdir:	:make-dir
 cd: func [
 	"Change directory (shell shortcut function)."
 	'path [file! word! path! unset! string!] "Accepts %file, :variables and just words (as dirs)"
+	/local val
 ][
 	switch type?/word :path [
-		unset! [print what-dir]
-		file! [change-dir path]
+		unset!  [print what-dir]
+		file!   [change-dir get :path]
 		string! [change-dir to-rebol-file path]
-		word! path! [change-dir to-file path]
+		word! path! [
+			change-dir either all [
+				not error? set/any 'val try [get :path]
+				val
+			][  val ][ to-file path ]
+		]
 	]
+	what-dir
 ]
 
 more: func [