steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

source-files: simplify, remove unnecessary error.

locals-and-roots
John Benediktsson 2016-04-14 17:21:05 -07:00
parent 0bb297ed92
commit 7387869315
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/source-files/source-files.factor
View File

@ -9,7 +9,7 @@ IN: source-files
SYMBOL: source-files SYMBOL: source-files
TUPLE: source-file TUPLE: source-file
path { path string }
top-level-form top-level-form
checksum checksum
definitions definitions
@ -26,14 +26,9 @@ main ;
new-definitions get >>definitions drop ; new-definitions get >>definitions drop ;
: <source-file> ( path -- source-file ) : <source-file> ( path -- source-file )
\ source-file new f f <definitions> f source-file boa ;
swap >>path
<definitions> >>definitions ;
ERROR: invalid-source-file-path path ;
: path>source-file ( path -- source-file ) : path>source-file ( path -- source-file )
dup string? [ invalid-source-file-path ] unless
source-files get [ <source-file> ] cache ; source-files get [ <source-file> ] cache ;
: reset-checksums ( -- ) : reset-checksums ( -- )