From 972281987c685039f0266a4c0281676682d290f0 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 20 Mar 2013 10:59:45 -0700
Subject: [PATCH] compiler.cfg.intrinsics: intrinsics on inline words are not
 supported.

---
 basis/compiler/cfg/intrinsics/intrinsics.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/compiler/cfg/intrinsics/intrinsics.factor b/basis/compiler/cfg/intrinsics/intrinsics.factor
index 31b3adb0aa..40c13f08a9 100644
--- a/basis/compiler/cfg/intrinsics/intrinsics.factor
+++ b/basis/compiler/cfg/intrinsics/intrinsics.factor
@@ -31,8 +31,13 @@ QUALIFIED: math.floats.private
 QUALIFIED: math.libm
 IN: compiler.cfg.intrinsics
 
+ERROR: inline-intrinsics-not-supported word quot ;
+
 : enable-intrinsics ( alist -- )
-    [ "intrinsic" set-word-prop ] assoc-each ;
+    [
+        over inline? [ inline-intrinsics-not-supported ] when
+        "intrinsic" set-word-prop
+    ] assoc-each ;
 
 {
     { kernel.private:tag [ drop emit-tag ] }