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

Stack checker now knows about wlet words

db4
Slava Pestov 2008-11-27 21:57:16 -06:00
parent a729e72b7e
commit 02b8dcf9f3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -186,6 +186,9 @@ M: object infer-call*
: infer-local-writer ( word -- ) : infer-local-writer ( word -- )
(( value -- )) apply-word/effect ; (( value -- )) apply-word/effect ;
: infer-local-word ( word -- )
"local-word-def" word-prop infer-quot-here ;
{ {
>r r> declare call (call) slip 2slip 3slip curry compose >r r> declare call (call) slip 2slip 3slip curry compose
execute (execute) if dispatch <tuple-boa> (throw) execute (execute) if dispatch <tuple-boa> (throw)
@ -209,6 +212,7 @@ M: object infer-call*
{ [ dup local? ] [ infer-local-reader ] } { [ dup local? ] [ infer-local-reader ] }
{ [ dup local-reader? ] [ infer-local-reader ] } { [ dup local-reader? ] [ infer-local-reader ] }
{ [ dup local-writer? ] [ infer-local-writer ] } { [ dup local-writer? ] [ infer-local-writer ] }
{ [ dup local-word? ] [ infer-local-word ] }
{ [ dup recursive-word? ] [ call-recursive-word ] } { [ dup recursive-word? ] [ call-recursive-word ] }
[ dup infer-word apply-word/effect ] [ dup infer-word apply-word/effect ]
} cond ; } cond ;