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

alien.marshall.structs: moved struct-wrapper dispose* method to alien.marshall

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

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

@ -25,6 +25,8 @@ GENERIC: unmarshall-cast ( alien-wrapper -- alien-wrapper' )
M: alien-wrapper unmarshall-cast ; M: alien-wrapper unmarshall-cast ;
M: struct-wrapper unmarshall-cast ; M: struct-wrapper unmarshall-cast ;
M: struct-wrapper dispose* underlying>> free ;
: marshall-pointer ( obj -- alien ) : marshall-pointer ( obj -- alien )
{ {
{ [ dup alien? ] [ ] } { [ dup alien? ] [ ] }

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

@ -6,8 +6,6 @@ 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
M: struct-wrapper dispose* underlying>> free ;
: 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 ;