inliner bug

int.dylan

Module: int
Synopsis:
Author:
Copyright:

define inline function exit(#key s :: one-of(#"a", #"b") = #"a")
  let status =
    if (s = #"a")
      0
    elseif (s == #"b")
      1
    end if;
  %call-c-function ("exit")
      (status :: <raw-c-signed-long>) => (nothing :: <raw-c-void>)
    (integer-as-raw(status))
  end;
end;

define function main
    (name :: <string>, arguments :: <vector>)
  format-out("Hello, world!\n");
  exit();
end function main;

main(application-name(), application-arguments());

int.lid

Library: int
Files: library
       int

library.dylan

Module: dylan-user

define library int
  use dylan;
  use common-dylan;
  use io;
end library int;

define module int
  use common-dylan;
  use format-out;
  use dylan-direct-c-ffi;

  export exit, main;
end module int;