From a2e8af25811c6fa3ee92537ead4d0ddb99d7bd67 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sat, 22 Aug 2015 18:22:28 +0200 Subject: [PATCH] io.files: command line params is in the system's native encoding --- core/io/files/files.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/core/io/files/files.factor b/core/io/files/files.factor index da758adeef..f2a212a403 100644 --- a/core/io/files/files.factor +++ b/core/io/files/files.factor @@ -85,8 +85,9 @@ M: object cwd ( -- path ) "." ; PRIVATE> : init-resource-path ( -- ) - OBJ-ARGS special-object - [ utf8 alien>string "-resource-path=" ?head [ drop f ] unless ] map-find drop + OBJ-ARGS special-object [ + alien>native-string "-resource-path=" ?head [ drop f ] unless + ] map-find drop [ image-path parent-directory ] unless* "resource-path" set-global ; [