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

Removing slip usage from basis

db4
Slava Pestov 2009-05-10 15:28:22 -05:00
parent 66d03fa6d3
commit a366909c25
4 changed files with 4 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/cocoa/application/application.factor
View File

@ -14,7 +14,7 @@ NSApplicationDelegateReplyCancel
NSApplicationDelegateReplyFailure ; NSApplicationDelegateReplyFailure ;
: with-autorelease-pool ( quot -- ) : with-autorelease-pool ( quot -- )
NSAutoreleasePool -> new slip -> release ; inline NSAutoreleasePool -> new [ call ] [ -> release ] bi* ; inline
: NSApp ( -- app ) NSApplication -> sharedApplication ; : NSApp ( -- app ) NSApplication -> sharedApplication ;

3
basis/compiler/codegen/codegen.factor
View File

@ -444,8 +444,7 @@ TUPLE: callback-context ;
: do-callback ( quot token -- ) : do-callback ( quot token -- )
init-catchstack init-catchstack
dup 2 setenv [ 2 setenv call ] keep
slip
wait-to-return ; inline wait-to-return ; inline
: callback-return-quot ( ctype -- quot ) : callback-return-quot ( ctype -- quot )

14
basis/stack-checker/known-words/known-words.factor
View File

@ -95,15 +95,6 @@ M: composed infer-call*
M: object infer-call* M: object infer-call*
"literal quotation" literal-expected ; "literal quotation" literal-expected ;
: infer-nslip ( n -- )
[ infer->r infer-call ] [ infer-r> ] bi ;
: infer-slip ( -- ) 1 infer-nslip ;
: infer-2slip ( -- ) 2 infer-nslip ;
: infer-3slip ( -- ) 3 infer-nslip ;
: infer-ndip ( word n -- ) : infer-ndip ( word n -- )
[ literals get ] 2dip [ literals get ] 2dip
[ '[ _ def>> infer-quot-here ] ] [ '[ _ def>> infer-quot-here ] ]
@ -180,9 +171,6 @@ M: object infer-call*
{ \ declare [ infer-declare ] } { \ declare [ infer-declare ] }
{ \ call [ infer-call ] } { \ call [ infer-call ] }
{ \ (call) [ infer-call ] } { \ (call) [ infer-call ] }
{ \ slip [ infer-slip ] }
{ \ 2slip [ infer-2slip ] }
{ \ 3slip [ infer-3slip ] }
{ \ dip [ infer-dip ] } { \ dip [ infer-dip ] }
{ \ 2dip [ infer-2dip ] } { \ 2dip [ infer-2dip ] }
{ \ 3dip [ infer-3dip ] } { \ 3dip [ infer-3dip ] }
@ -216,7 +204,7 @@ M: object infer-call*
"local-word-def" word-prop infer-quot-here ; "local-word-def" word-prop infer-quot-here ;
{ {
declare call (call) slip 2slip 3slip dip 2dip 3dip curry compose declare call (call) dip 2dip 3dip curry compose
execute (execute) call-effect-unsafe execute-effect-unsafe if execute (execute) call-effect-unsafe execute-effect-unsafe if
dispatch <tuple-boa> exit load-local load-locals get-local dispatch <tuple-boa> exit load-local load-locals get-local
drop-locals do-primitive alien-invoke alien-indirect drop-locals do-primitive alien-invoke alien-indirect

2
basis/xml/xml.factor
View File

@ -143,7 +143,7 @@ PRIVATE>
<PRIVATE <PRIVATE
: call-under ( quot object -- quot ) : call-under ( quot object -- quot )
swap dup slip ; inline swap [ call ] keep ; inline
: xml-loop ( quot: ( xml-elem -- ) -- ) : xml-loop ( quot: ( xml-elem -- ) -- )
parse-text call-under parse-text call-under