unfinished/compiler/instructions/syntax/syntax.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: classes.tuple classes.tuple.parser kernel words
   4 make parser ;
   5 IN: compiler.instructions.syntax
   6
   7 TUPLE: insn ;
   8
   9 : INSN:
  10     parse-tuple-definition
  11     [ dup tuple eq? [ drop insn ] when ] dip
  12     [ define-tuple-class ]
  13     [ 2drop save-location ]
  14     [ 2drop dup [ boa , ] curry define-inline ]
  15     3tri ; parsing