Merge branch 'master' of git://factorcode.org/git/factor
commit
6c8ea5e7d4
|
@ -1,8 +1,8 @@
|
||||||
! Copyright (C) 2006, 2008 Slava Pestov.
|
! Copyright (C) 2006, 2009 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: kernel generic sequences io words arrays summary effects
|
USING: kernel generic sequences io words arrays summary effects
|
||||||
assocs accessors namespaces compiler.errors stack-checker.values
|
continuations assocs accessors namespaces compiler.errors
|
||||||
stack-checker.recursive-state ;
|
stack-checker.values stack-checker.recursive-state ;
|
||||||
IN: stack-checker.errors
|
IN: stack-checker.errors
|
||||||
|
|
||||||
: pretty-word ( word -- word' )
|
: pretty-word ( word -- word' )
|
||||||
|
@ -15,7 +15,7 @@ M: inference-error compiler-error-type type>> ;
|
||||||
: (inference-error) ( ... class type -- * )
|
: (inference-error) ( ... class type -- * )
|
||||||
[ boa ] dip
|
[ boa ] dip
|
||||||
recursive-state get word>>
|
recursive-state get word>>
|
||||||
\ inference-error boa throw ; inline
|
\ inference-error boa rethrow ; inline
|
||||||
|
|
||||||
: inference-error ( ... class -- * )
|
: inference-error ( ... class -- * )
|
||||||
+error+ (inference-error) ; inline
|
+error+ (inference-error) ; inline
|
||||||
|
|
Loading…
Reference in New Issue