Error: during expansion of (foreign-lambda ...) - segmentation violation

        Call history:

        <eval>    (##sys#cons (##core#quote ##core#foreign-lambda) (cdr form))
        <eval>    (cdr form)
        <eval>    (cdddr form)
        <eval>    (cadr form)
        <eval>    [annotate-foreign-procedure] (map (cut chicken.compiler.support#foreign-type->scrutiny-type <> (quote arg)) (chicken.syntax#strip...
        <eval>    [annotate-foreign-procedure] (chicken.syntax#strip-syntax argtypes)
        <eval>    [annotate-foreign-procedure] ((##core#begin chicken.compiler.support#foreign-type->scrutiny-type) g8788 (quote arg))
        support.scm:1348: foreign-type-argument-converter
        support.scm:1353: final-foreign-type
        support.scm:1232: follow-without-loop
        support.scm:278: proc
        <eval>    [annotate-foreign-procedure] (chicken.compiler.support#foreign-type->scrutiny-type (chicken.syntax#strip-syntax rtype) (quote res...
        <eval>    [annotate-foreign-procedure] (chicken.syntax#strip-syntax rtype)
        support.scm:1349: foreign-type-result-converter
        support.scm:1211: lookup-foreign-type
        support.scm:1052: chicken.internal#hash-table-ref               <--