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

Image size reduction

db4
Slava Pestov 2008-09-03 18:23:48 -05:00
parent 21bfcddfd7
commit 6d506b89e8
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/compiler.factor
View File

@ -43,8 +43,8 @@ SYMBOL: +failed+
[ [
dup crossref? dup crossref?
[ [
dependencies get dependencies get >alist
generic-dependencies get generic-dependencies get >alist
compiled-xref compiled-xref
] [ drop ] if ] [ drop ] if
] tri ; ] tri ;

7
basis/stack-checker/state/state.factor
View File

@ -89,8 +89,11 @@ SYMBOL: meta-r
SYMBOL: dependencies SYMBOL: dependencies
: depends-on ( word how -- ) : depends-on ( word how -- )
dependencies get dup over primitive? [ 2drop ] [
[ swap '[ , strongest-dependency ] change-at ] [ 3drop ] if ; dependencies get dup [
swap '[ , strongest-dependency ] change-at
] [ 3drop ] if
] if ;
! Generic words that the current quotation depends on ! Generic words that the current quotation depends on
SYMBOL: generic-dependencies SYMBOL: generic-dependencies