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

io.files: remove old code

db4
Eduardo Cavazos 2008-03-16 15:57:22 -06:00
parent ed7af26003
commit d46de0ae59
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/io/files/files.factor
View File

@ -86,16 +86,10 @@ SYMBOL: +unknown+
: stat ( path -- directory? permissions length modified ) : stat ( path -- directory? permissions length modified )
normalize-pathname (stat) ; normalize-pathname (stat) ;
! : file-length ( path -- n ) stat drop 2nip ;
: file-modified ( path -- n ) stat >r 3drop r> ; : file-modified ( path -- n ) stat >r 3drop r> ;
! : file-permissions ( path -- perm ) stat 2drop nip ;
: exists? ( path -- ? ) file-modified >boolean ; : exists? ( path -- ? ) file-modified >boolean ;
! : directory? ( path -- ? ) stat 3drop ;
: directory? ( path -- ? ) file-info file-info-type +directory+ = ; : directory? ( path -- ? ) file-info file-info-type +directory+ = ;
! Current working directory ! Current working directory

10
extra/builder/benchmark/benchmark.factor
View File

@ -4,10 +4,12 @@ USING: kernel continuations arrays assocs sequences sorting math
IN: builder.benchmark IN: builder.benchmark
: passing-benchmarks ( table -- table ) ! : passing-benchmarks ( table -- table )
[ second first2 number? swap number? and ] subset ; ! [ second first2 number? swap number? and ] subset ;
: simplify-table ( table -- table ) [ first2 second 2array ] map ; : passing-benchmarks ( table -- table ) [ second number? ] subset ;
! : simplify-table ( table -- table ) [ first2 second 2array ] map ;
: benchmark-difference ( old-table benchmark-result -- result-diff ) : benchmark-difference ( old-table benchmark-result -- result-diff )
first2 >r first2 >r
@ -17,7 +19,7 @@ IN: builder.benchmark
2array ; 2array ;
: compare-tables ( old new -- table ) : compare-tables ( old new -- table )
[ passing-benchmarks simplify-table ] 2apply [ passing-benchmarks ] 2apply
[ benchmark-difference ] with map ; [ benchmark-difference ] with map ;
: benchmark-deltas ( -- table ) : benchmark-deltas ( -- table )