Fix regression

db4
Slava Pestov 2008-02-10 01:34:26 -06:00
parent ce1602bc2c
commit 765f9bfb43
2 changed files with 6 additions and 0 deletions

View File

@ -370,6 +370,7 @@ TUPLE: effect-error word effect ;
init-inference
dependencies off
dup word-def over dup infer-quot-recursive
end-infer
finish-word
current-effect
] with-scope

View File

@ -537,3 +537,8 @@ TUPLE: custom-error ;
! This was a false trigger of the undecidable quotation
! recursion bug
{ 2 1 } [ find-last-sep ] must-infer-as
! Regression
: missing->r-check >r ;
[ [ missing->r-check ] infer ] must-fail