FIX: make sure that home directory is absolute on all platforms

Oldes · Oldes · commit aa4c060880a4 · 2017-10-27T19:31:30.000+02:00
diff --git a/src/mezz/mezz-banner.r b/src/mezz/mezz-banner.r
@@ -42,6 +42,11 @@ make-banner: func [
 	str
 ]
 
+if #"/" <> first system/options/home [
+	;make sure that home directory is absolute on all platforms
+	system/options/home: clean-path join what-dir system/options/home
+]
+
 sys/boot-banner: make-banner [
 	*
 	-
@@ -59,7 +64,7 @@ sys/boot-banner: make-banner [
 	-
 	= Language: system/locale/language*
 	= Locale:   system/locale/locale*
-	= Home:     [to-local-file clean-path join what-dir system/options/home]
+	= Home:     [to-local-file system/options/home]
 	-
 	*
 ]

Original file line number	Diff line number	Diff line change
`@@ -42,6 +42,11 @@ make-banner: func [`
`42`	`42`	`str`
`43`	`43`	`]`
`44`	`44`
	`45`	`+if #"/" <> first system/options/home [`
	`46`	`+ ;make sure that home directory is absolute on all platforms`
	`47`	`+ system/options/home: clean-path join what-dir system/options/home`
	`48`	`+]`
	`49`	`+`
`45`	`50`	`sys/boot-banner: make-banner [`
`46`	`51`	`*`
`47`	`52`	`-`
`@@ -59,7 +64,7 @@ sys/boot-banner: make-banner [`
`59`	`64`	`-`
`60`	`65`	`= Language: system/locale/language*`
`61`	`66`	`= Locale: system/locale/locale*`
`62`		`- = Home: [to-local-file clean-path join what-dir system/options/home]`
	`67`	`+ = Home: [to-local-file system/options/home]`
`63`	`68`	`-`
`64`	`69`	`*`
`65`	`70`	`]`