primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the...

[factor.git] / core / syntax / syntax.factor

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index 2d805a2c4f092f329301868f7c87a552d15121c1..132e09988d54753b8dd95b71624666dab366b30c 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -31,7 +31,8 @@ IN: bootstrap.syntax
     { "]" "}" ";" ">>" } [ define-delimiter ] each
 
     "PRIMITIVE:" [
-        "Primitive definition is not supported" throw
+        current-vocab name>>
+        scan-word scan-effect ensure-primitive
     ] define-core-syntax
 
     "CS{" [