diff options
Diffstat (limited to 'src/interp/fortcall.boot')
-rw-r--r-- | src/interp/fortcall.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/fortcall.boot b/src/interp/fortcall.boot index 8eb93631..b464093f 100644 --- a/src/interp/fortcall.boot +++ b/src/interp/fortcall.boot @@ -571,12 +571,12 @@ prepareResults(results,args,dummies,values,decls) == LISTP(type) and first(type)="character" => MAKE_-STRING(1) LISTP(type) and first(type) in ["complex","double complex"] => makeVector( makeList( - 2*APPLY('_*,[getVal(tt,argNames,actual) for tt in rest(type)]),_ + 2*apply('_*,[getVal(tt,argNames,actual) for tt in rest(type)]),_ if first(type)="complex" then shortZero else longZero),_ if first(type)="complex" then "%SingleFloat" else "%DoubleFloat" ) LISTP type => makeVector(_ makeList( - APPLY('_*,[getVal(tt,argNames,actual) for tt in rest(type)]),_ + apply('_*,[getVal(tt,argNames,actual) for tt in rest(type)]),_ defaultValue(first type,argNames,actual)),_ checkForBoolean lispType first(type) ) type = "integer" => 0 |