From 9804c3c7440b6fb9d308d76a81ee55d92b327788 Mon Sep 17 00:00:00 2001 From: Craig Allen Date: Mon, 22 Oct 2018 15:47:12 +0100 Subject: [PATCH] fix absolute path on windows append-path ignores the first argument if the second is an absolute path, breaks the vocab on windows --- extra/etc-hosts/etc-hosts.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/etc-hosts/etc-hosts.factor b/extra/etc-hosts/etc-hosts.factor index 6bdd6f8060..4e102bba1d 100644 --- a/extra/etc-hosts/etc-hosts.factor +++ b/extra/etc-hosts/etc-hosts.factor @@ -7,7 +7,7 @@ IN: etc-hosts HOOK: hosts-path os ( -- path ) M: windows hosts-path - "SystemRoot" os-env "/System32/drivers/etc/hosts" append-path ; + "SystemRoot" os-env "System32/drivers/etc/hosts" append-path ; M: unix hosts-path "/etc/hosts" ;