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

alien.marshall: fixed out-arg-unmarshaller

db4
Jeremy Hughes 2009-07-15 16:42:00 +12:00
parent e3a1299993
commit 0c0ae68c5e
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/alien/marshall/marshall.factor
View File

@ -298,9 +298,6 @@ ALIAS: marshall-void* marshall-pointer
] if* ; ] if* ;
: out-arg-unmarshaller ( type -- quot ) : out-arg-unmarshaller ( type -- quot )
dup { dup pointer-to-non-const-primitive?
[ pointer-to-const? not ]
[ factorize-type pointer-to-primitive? ]
} 1&&
[ factorize-type primitive-unmarshaller ] [ factorize-type primitive-unmarshaller ]
[ drop [ drop ] ] if ; [ drop [ drop ] ] if ;