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

Fixes for recent method tuple cleanup

db4
Slava Pestov 2008-03-05 16:00:34 -06:00
parent 6337b3b80d
commit 3c98385c11
4 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/words/words.factor
View File

@ -68,7 +68,7 @@ SYMBOL: bootstrapping?
: crossref? ( word -- ? ) : crossref? ( word -- ? )
{ {
{ [ dup "forgotten" word-prop ] [ f ] } { [ dup "forgotten" word-prop ] [ f ] }
{ [ dup "method-definition" word-prop ] [ t ] } { [ dup "method-def" word-prop ] [ t ] }
{ [ dup word-vocabulary ] [ t ] } { [ dup word-vocabulary ] [ t ] }
{ [ t ] [ f ] } { [ t ] [ f ] }
} cond nip ; } cond nip ;

BIN
extra/db/sqlite/test.db Normal file
View File

Binary file not shown.

4
extra/locals/locals.factor
View File

@ -367,14 +367,14 @@ M: lambda-method definer drop \ M:: \ ; ;
M: lambda-method definition M: lambda-method definition
"lambda" word-prop lambda-body ; "lambda" word-prop lambda-body ;
: method-stack-effect : method-stack-effect ( method -- effect )
dup "lambda" word-prop lambda-vars dup "lambda" word-prop lambda-vars
swap "method-generic" word-prop stack-effect swap "method-generic" word-prop stack-effect
dup [ effect-out ] when dup [ effect-out ] when
<effect> ; <effect> ;
M: lambda-method synopsis* M: lambda-method synopsis*
dup dup definer. dup dup dup definer.
"method-specializer" word-prop pprint* "method-specializer" word-prop pprint*
"method-generic" word-prop pprint* "method-generic" word-prop pprint*
method-stack-effect effect>string comment. ; method-stack-effect effect>string comment. ;

3
extra/tools/deploy/shaker/strip-cocoa.factor
View File

@ -1,5 +1,6 @@
USING: cocoa cocoa.messages cocoa.application cocoa.nibs USING: cocoa cocoa.messages cocoa.application cocoa.nibs
assocs namespaces kernel words compiler sequences ui.cocoa ; assocs namespaces kernel words compiler.units sequences
ui.cocoa ;
"stop-after-last-window?" get "stop-after-last-window?" get
global [ global [