basis: ERROR: changes.

[factor.git] / basis / fry / fry.factor

diff --git a/basis/fry/fry.factor b/basis/fry/fry.factor
index cca4aef3b5fe266c81d6461e67221589606b3082..2b447fa4db09c0d5b948991d8664a422c7f82d3d 100644 (file)
--- a/basis/fry/fry.factor
+++ b/basis/fry/fry.factor
@@ -15,7 +15,7 @@ GENERIC: fry ( quot -- quot' )
 
 : check-fry ( quot -- quot )
     dup { load-local load-locals get-local drop-locals } intersect
-    [ >r/r>-in-fry-error ] unless-empty ;
+    [ throw->r/r>-in-fry-error ] unless-empty ;
 
 PREDICATE: fry-specifier < word { _ @ } member-eq? ;