From 981862f35ede1e73f01917054c96c9e0d44a2611 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 31 Oct 2011 00:18:45 -0700 Subject: [PATCH] Revert "syntax: make it so PRIMITIVE: verifies primitives" This reverts commit 200ea70cffc4bdc74a97e4981442161f64cdbaa3. --- core/syntax/syntax.factor | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor index cd90ea0b92..803287a89d 100644 --- a/core/syntax/syntax.factor +++ b/core/syntax/syntax.factor @@ -8,7 +8,7 @@ generic.standard generic.hook generic.math generic.parser classes io.pathnames vocabs vocabs.parser classes.parser classes.union classes.intersection classes.mixin classes.predicate classes.singleton classes.tuple.parser compiler.units -combinators effects effects.parser slots hash-sets source-files ; +combinators effects.parser slots hash-sets source-files ; IN: bootstrap.syntax ! These words are defined as a top-level form, instead of with @@ -26,15 +26,11 @@ IN: bootstrap.syntax [ dup "syntax" lookup [ ] [ no-word-error ] ?if ] dip define-syntax ; -: verify-primitive ( word vocab effect -- ) - [ lookup ] dip [ swap stack-effect effect= ] curry [ f ] if* - [ "Primitive definition is not correct" throw ] unless ; - [ { "]" "}" ";" ">>" } [ define-delimiter ] each "PRIMITIVE:" [ - scan-token current-vocab scan-object verify-primitive + "Primitive definition is not supported" throw ] define-core-syntax "CS{" [