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

Add sanity check

db4
Slava Pestov 2008-06-11 21:12:17 -05:00
parent c1509d5fe5
commit f9ed7ac1ae
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/source-files/source-files-tests.factor Normal file
View File

@ -0,0 +1,5 @@
IN: source-files.tests
USING: source-files tools.test assocs sequences strings
namespaces kernel ;
[ { } ] [ source-files get keys [ string? not ] filter ] unit-test

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

@ -44,6 +44,7 @@ uses definitions ;
\ source-file construct ; \ source-file construct ;
: source-file ( path -- source-file ) : source-file ( path -- source-file )
dup string? [ "Invalid source file path" throw ] unless
source-files get [ <source-file> ] cache ; source-files get [ <source-file> ] cache ;
: reset-checksums ( -- ) : reset-checksums ( -- )