alien.marshall.syntax: added CM-STRUCTURE:

db4
Jeremy Hughes 2009-07-09 10:35:49 +12:00
parent c4aabe2fb4
commit e2c6b21bfb
1 changed files with 6 additions and 1 deletions

View File

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.inline alien.inline.types alien.marshall
combinators effects generalizations kernel locals make namespaces
quotations sequences words ;
quotations sequences words alien.marshall.structs lexer parser
vocabs.parser ;
IN: alien.marshall.syntax
:: marshalled-function ( function types effect -- word quot effect )
@ -38,3 +39,7 @@ SYNTAX: M-FUNCTION:
SYNTAX: M-STRUCTURE:
scan current-vocab parse-definition
define-marshalled-struct ;
SYNTAX: CM-STRUCTURE:
scan current-vocab parse-definition
[ define-marshalled-struct ] [ define-c-struct ] 3bi ;