FIX: don't allow function! as a path argument of the CD function

Oldes · Oldes · commit 2967a2cbc013 · 2018-09-14T15:39:27.000+02:00
diff --git a/src/mezz/mezz-shell.r b/src/mezz/mezz-shell.r
@@ -29,6 +29,7 @@ cd: func [
 		word! path! [
 			change-dir either all [
 				not error? set/any 'val try [get :path]
+				not function? :val
 				val
 			][  val ][ to-file path ]
 		]

Original file line number	Diff line number	Diff line change
`@@ -29,6 +29,7 @@ cd: func [`
`29`	`29`	`word! path! [`
`30`	`30`	`change-dir either all [`
`31`	`31`	`not error? set/any 'val try [get :path]`
	`32`	`+ not function? :val`
`32`	`33`	`val`
`33`	`34`	`][ val ][ to-file path ]`
`34`	`35`	`]`