From dd0d9fbc10542a38a283d4c6efa6701d42fddd0a Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 1 Dec 2010 03:00:00 -0800 Subject: [PATCH] alien.fortran: cleanup --- basis/alien/fortran/fortran.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/alien/fortran/fortran.factor b/basis/alien/fortran/fortran.factor index 06aabd246b..f07c06723e 100755 --- a/basis/alien/fortran/fortran.factor +++ b/basis/alien/fortran/fortran.factor @@ -427,10 +427,11 @@ MACRO: fortran-invoke ( return library function parameters -- ) { [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4 ncleave ; : parse-arglist ( parameters return -- types effect ) - [ 2 group + [ + 2 group [ unzip [ "," ?tail drop ] map ] [ [ first "!" head? ] filter [ second "," ?tail drop "'" append ] map ] bi - ] [ [ { } ] [ 1array ] if-void swap append ] + ] [ [ ] [ prefix ] if-void ] bi* ; :: define-fortran-function ( return library function parameters -- )