32 lines
958 B
Factor
32 lines
958 B
Factor
! Copyright (C) 2004, 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel io effects namespaces sequences quotations vocabs
|
|
vocabs.loader generic words stack-checker.backend stack-checker.state
|
|
stack-checker.known-words stack-checker.transforms
|
|
stack-checker.errors stack-checker.inlining
|
|
stack-checker.visitor.dummy ;
|
|
IN: stack-checker
|
|
|
|
GENERIC: infer ( quot -- effect )
|
|
|
|
M: callable infer ( quot -- effect )
|
|
[ infer-quot-here ] with-infer drop ;
|
|
|
|
: infer. ( quot -- )
|
|
#! Safe to call from inference transforms.
|
|
infer effect>string print ;
|
|
|
|
: forget-errors ( -- )
|
|
all-words [
|
|
dup subwords [ f "cannot-infer" set-word-prop ] each
|
|
f "cannot-infer" set-word-prop
|
|
] each ;
|
|
|
|
: forget-effects ( -- )
|
|
forget-errors
|
|
all-words [
|
|
dup subwords [ f "inferred-effect" set-word-prop ] each
|
|
f "inferred-effect" set-word-prop
|
|
] each ;
|
|
|
|
"stack-checker.call-effect" require |