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

fix more alien.inline tests

db4
Joe Groff 2009-09-17 11:10:06 -05:00
parent c3f0688164
commit d9c6230f43
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,6 +41,11 @@ SYMBOL: c-strings
[ current-vocab name>> % "_" % % ] "" make ; [ current-vocab name>> % "_" % % ] "" make ;
PRIVATE> PRIVATE>
: parse-arglist ( parameters return -- types effect )
[ 2 group unzip [ "," ?tail drop ] map ]
[ [ { } ] [ 1array ] if-void ]
bi* <effect> ;
: append-function-body ( prototype-str body -- str ) : append-function-body ( prototype-str body -- str )
[ swap % " {\n" % % "\n}\n" % ] "" make ; [ swap % " {\n" % % "\n}\n" % ] "" make ;