The following works find on my float arrays, but not for int arrays

gls_int_problem

# First, the definitions needed for the signatures:
  dlfunc nci, lib, 'gsl_stats_max', 'dpll'
  set_global ['GSL'], 'gsl_stats_max', nci
  dlfunc nci, lib, 'gsl_stats_int_max', 'ipll'
  set_global ['GSL'], 'gsl_stats_int_max', nci

# $arg will be a Resizable*Array
my sub max ($arg) {
  if (pir::typeof($arg[0]) eq 'Float') {
    my @ans := pir::new("ResizableFloatArray");
    my $fun :=
      Q:PIR { %r = get_global ['GSL'], 'gsl_stats_max' };
    @ans[0] := $fun($arg, 1, length($arg)[0]);
    return @ans;
  }
  if (pir::typeof($arg[0]) eq 'Integer') {
    print("max(Integer) is buggy, sorry");
    my @ans := pir::new("ResizableIntegerArray");
    my $fun :=
      Q:PIR { %r = get_global ['GSL'], 'gsl_stats_int_max' };
    @ans[0] := $fun($arg, 1, length($arg)[0]);
    return @ans;
  }
}