steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "syntax: make it so PRIMITIVE: verifies primitives" 

This reverts commit 200ea70cffc4bdc74a97e4981442161f64cdbaa3.
db4
Joe Groff 2011-10-31 00:18:45 -07:00
parent a08ba5103a
commit 981862f35e
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/syntax/syntax.factor
View File

@ -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{" [