extra/opencl/syntax/syntax.factor

   1 ! Copyright (C) 2010 Erik Charlebois.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: classes.parser classes.singleton classes.union kernel lexer
   4 sequences ;
   5 IN: opencl.syntax
   6
   7 SYNTAX: SINGLETONS-UNION:
   8     scan-new-class ";" parse-tokens [ create-class-in [ define-singleton-class ] keep ] map define-union-class ;