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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/alien/marshall/syntax/syntax.factor
View File

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