From e2c6b21bfbcb5318b3dc211233ea19453558238a Mon Sep 17 00:00:00 2001 From: Jeremy Hughes Date: Thu, 9 Jul 2009 10:35:49 +1200 Subject: [PATCH] alien.marshall.syntax: added CM-STRUCTURE: --- basis/alien/marshall/syntax/syntax.factor | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/basis/alien/marshall/syntax/syntax.factor b/basis/alien/marshall/syntax/syntax.factor index e764ed2307..c4011a2f77 100644 --- a/basis/alien/marshall/syntax/syntax.factor +++ b/basis/alien/marshall/syntax/syntax.factor @@ -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 ;