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

alien.marshall.structs: made some words private

db4
Jeremy Hughes 2009-07-14 20:50:52 +12:00
parent 3b56dc8b13
commit 92e38530a3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alien/marshall/structs/structs.factor
View File

@ -6,6 +6,7 @@ kernel libc locals parser quotations sequences slots words
alien.structs lexer vocabs.parser fry effects ; alien.structs lexer vocabs.parser fry effects ;
IN: alien.marshall.structs IN: alien.marshall.structs
<PRIVATE
: define-struct-accessor ( class name quot -- ) : define-struct-accessor ( class name quot -- )
[ "accessors" create create-method dup make-inline ] dip define ; [ "accessors" create create-method dup make-inline ] dip define ;
@ -31,6 +32,7 @@ IN: alien.marshall.structs
[ name>> '[ _ malloc-object >>underlying ] append ] [ name>> '[ _ malloc-object >>underlying ] append ]
[ name>> 1array ] [ name>> 1array ]
} cleave { } swap <effect> define-declared ; } cleave { } swap <effect> define-declared ;
PRIVATE>
:: define-struct-tuple ( name -- ) :: define-struct-tuple ( name -- )
name create-in :> class name create-in :> class