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

trivial lint changes

db4
Doug Coleman 2008-10-02 19:35:03 -05:00
parent b35db385d3
commit ec31e23ca7
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
unmaintained/lint/lint.factor
View File

@ -3,14 +3,15 @@
USING: accessors alien alien.accessors arrays assocs USING: accessors alien alien.accessors arrays assocs
combinators.lib io kernel macros math namespaces prettyprint combinators.lib io kernel macros math namespaces prettyprint
quotations sequences vectors vocabs words html.elements sets quotations sequences vectors vocabs words html.elements sets
slots.private combinators.short-circuit ; slots.private combinators.short-circuit math.order hashtables
sequences.deep ;
IN: lint IN: lint
SYMBOL: def-hash SYMBOL: def-hash
SYMBOL: def-hash-keys SYMBOL: def-hash-keys
: set-hash-vector ( val key hash -- ) : set-hash-vector ( val key hash -- )
2dup at -rot >r >r ?push r> r> set-at ; 2dup at -rot [ ?push ] 2dip set-at ;
: add-word-def ( word quot -- ) : add-word-def ( word quot -- )
dup callable? [ dup callable? [
@ -67,7 +68,7 @@ def-hash get-global [
! Remove constants [ 1 ] ! Remove constants [ 1 ]
[ [
drop dup length 1 = swap first number? and not drop { [ length 1 = ] [ first number? ] } 1&& not
] assoc-filter ] assoc-filter
! Remove set-alien-cell, etc. ! Remove set-alien-cell, etc.
@ -80,6 +81,13 @@ def-hash get-global [
drop trivial-defs member? not drop trivial-defs member? not
] assoc-filter ] assoc-filter
[
drop {
[ [ wrapper? ] deep-contains? ]
[ [ hashtable? ] deep-contains? ]
} 1|| not
] assoc-filter
! Remove n m shift defs ! Remove n m shift defs
[ [
drop dup length 3 = [ drop dup length 3 = [