The following code will crash the compiler instead of reporting the problem of duplicate c-define-type :<div><br></div><div>- - - - - - - - - - - - - - -</div><div><br></div><div>File: setup.scm</div><div><br></div><div><div>
(define (some-path->container-hook path)</div><div>  'foo)</div><div><br></div><div>(set! ##path->container-hook some-path->container-hook)</div><div><br></div><div>- - - - - - - - - - - - - - -<br></div><div>
<br></div><div>File: crash.scm</div><div><br></div><div><div>(c-define-type jazz.platform.windows.WinTypes.LONG long)</div><div>(c-define-type jazz.platform.windows.WinTypes.LONG long)</div></div><div><br></div>- - - - - - - - - - - - - - -</div>
<div><br></div><div>% gsc</div><div>Gambit v4.4.0<br></div><div><br></div><div><div>> (load "setup")</div><div>"c:\\setup.scm"</div><div>> (compile-file "crash")</div><div>*** ERROR IN EXPRESSION 983041 EXPRESSION 0 EXPRESSION 1975872 EXPRESSION 1978145 EXPRESSION 1988504</div>
<div><br></div><div>- - - - - - - - - - - - - - -<br></div><div><br></div><div>Problem seems to be in locat-show in _source.scm when it's doing</div><div><br></div><div><div>(if source</div><div>   (locat-show " " (source-locat source)))</div>
</div><div><br></div></div>