Change a throw to a rethrow

db4
Slava Pestov 2009-03-18 19:44:38 -05:00
parent 2628ddde5e
commit bb92336fb8
1 changed files with 4 additions and 4 deletions

View File

@ -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.
USING: kernel generic sequences io words arrays summary effects
assocs accessors namespaces compiler.errors stack-checker.values
stack-checker.recursive-state ;
continuations assocs accessors namespaces compiler.errors
stack-checker.values stack-checker.recursive-state ;
IN: stack-checker.errors
: pretty-word ( word -- word' )
@ -15,7 +15,7 @@ M: inference-error compiler-error-type type>> ;
: (inference-error) ( ... class type -- * )
[ boa ] dip
recursive-state get word>>
\ inference-error boa throw ; inline
\ inference-error boa rethrow ; inline
: inference-error ( ... class -- * )
+error+ (inference-error) ; inline