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

Simplify inline? now that generic words can't be inline anymore

db4
Slava Pestov 2008-11-13 09:33:18 -06:00
parent eef45a1cc3
commit 4858a2ea74
3 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/generic/generic.factor
View File

@ -76,9 +76,6 @@ TUPLE: check-method class generic ;
PREDICATE: method-body < word PREDICATE: method-body < word
"method-generic" word-prop >boolean ; "method-generic" word-prop >boolean ;
M: method-body inline?
"method-generic" word-prop inline? ;
M: method-body stack-effect M: method-body stack-effect
"method-generic" word-prop stack-effect ; "method-generic" word-prop stack-effect ;

3
core/generic/standard/engines/tuple/tuple.factor
View File

@ -79,9 +79,6 @@ M: engine-word stack-effect
[ extra-values ] [ stack-effect ] bi [ extra-values ] [ stack-effect ] bi
dup [ clone [ length + ] change-in ] [ 2drop f ] if ; dup [ clone [ length + ] change-in ] [ 2drop f ] if ;
M: engine-word inline?
"tuple-dispatch-generic" word-prop inline? ;
M: engine-word crossref? "forgotten" word-prop not ; M: engine-word crossref? "forgotten" word-prop not ;
M: engine-word irrelevant? drop t ; M: engine-word irrelevant? drop t ;

4
core/words/words.factor
View File

@ -135,9 +135,7 @@ compiled-generic-crossref global [ H{ } assoc-like ] change-at
[ compiled-generic-crossref get delete-at ] [ compiled-generic-crossref get delete-at ]
tri ; tri ;
GENERIC: inline? ( word -- ? ) : inline? ( word -- ? ) "inline" word-prop ; inline
M: word inline? "inline" word-prop ;
SYMBOL: visited SYMBOL: visited