source-files: simplify, remove unnecessary error.

diff --git a/core/source-files/source-files.factor b/core/source-files/source-files.factor
index 06a415f136651eec8ca7e46810c719f3d4e63cc0..d3eb3022150b3c561a747f79d6635db05fcada11 100644 (file)
--- a/core/source-files/source-files.factor
+++ b/core/source-files/source-files.factor
@@ -9,7 +9,7 @@ IN: source-files
 SYMBOL: source-files
 
 TUPLE: source-file
-path
+{ path string }
 top-level-form
 checksum
 definitions
@@ -26,14 +26,9 @@ main ;
     new-definitions get >>definitions drop ;
 
 : <source-file> ( path -- source-file )
-    \ source-file new
-        swap >>path
-        <definitions> >>definitions ;
-
-ERROR: invalid-source-file-path path ;
+    f f <definitions> f source-file boa ;
 
 : path>source-file ( path -- source-file )
-    dup string? [ invalid-source-file-path ] unless
     source-files get [ <source-file> ] cache ;
 
 : reset-checksums ( -- )