Revert "Revert "use tilde paths in more places.""

[factor.git] / extra / cpu / 8080 / emulator / emulator.factor

diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor
index 7f6eaa62f6c922aaa3def287da6d352b45a5c643..b2744af4b9bcc5f215b634cc479acd7432cbb358 100644 (file)
--- a/extra/cpu/8080/emulator/emulator.factor
+++ b/extra/cpu/8080/emulator/emulator.factor
@@ -453,7 +453,7 @@ SYMBOL: rom-root
 
 : rom-dir ( -- string )
     rom-root get [
-        home "roms" append-path dup file-exists? [ drop f ] unless
+        "~/roms" dup file-exists? [ drop f ] unless
     ] unless* ;
 
 : load-rom* ( seq cpu -- )