fix compilation of cond and throw

diff --git a/library/collections/sequences.factor b/library/collections/sequences.factor
index e2b9950fb6368f3266e8d16bfc1d8a29d688743e..5097fde77e45021bbaae3fe3091a55f87d5b57c6 100644 (file)
--- a/library/collections/sequences.factor
+++ b/library/collections/sequences.factor
@@ -61,7 +61,8 @@ G: find ( seq quot -- i elt | quot: elt -- ? )
     dup first over second rot third ; inline
 
 TUPLE: bounds-error index seq ;
-: bounds-error <bounds-error> throw ;
+
+: bounds-error <bounds-error> throw ; inline
 
 : growable-check ( n seq -- fx seq )
     >r >fixnum dup 0 fixnum<

diff --git a/library/inference/known-words.factor b/library/inference/known-words.factor
index e57cbcaaea5acb9e905fe95129b5ab0d9df15c46..3fbeb9293521ee36d811c7723daaf28f697f1d0e 100644 (file)
--- a/library/inference/known-words.factor
+++ b/library/inference/known-words.factor
@@ -75,7 +75,11 @@ memory parser sequences strings vectors words prettyprint ;
 
 ! Non-standard control flow
 \ throw [ [ object ] [ ] ] "infer-effect" set-word-prop
-\ throw [ terminate ] "infer" set-word-prop
+
+\ throw [
+    \ throw dup "infer-effect" word-prop consume/produce
+    terminate
+] "infer" set-word-prop
 
 ! Stack effects for all primitives
 \ cons [ [ object object ] [ cons ] ] "infer-effect" set-word-prop