Re: [Chicken-users] csi crashes if chicken_home is undefined

[felix winkelmann]

On Mon, 20 Dec 2004 08:07:06 +0100, felix winkelmann <address@hidden> wrote:
> On Mon, 20 Dec 2004 08:42:03 +0200, Shmulik Regev <address@hidden> wrote:
> > A minor issue that I came across with chicken-1.85 on windows (compiled
> > with VC) is an immediate crash in csi.exe (I believe that in any chicken
> > executable) when chicken_home is undefined. Indeed the readme file clearly
> > states that this should be done, but wouldn't it be convenient to use the
> > current directory if the env variable is undefined?
> >
> 
> Absolutely. Thanks for pointing this out.
> 

Here's a patch that should work:

cd /home/fwinkel/stuff/chicken/
diff -c /home/fwinkel/stuff/chicken/csi.scm\~
/home/fwinkel/stuff/chicken/csi.scm
*** /home/fwinkel/stuff/chicken/csi.scm~        2004-12-19 11:28:14.000000000 
+0100
--- /home/fwinkel/stuff/chicken/csi.scm 2004-12-20 08:08:09.792128848 +0100
***************
*** 875,881 ****
           [strict-srfi0 (member "-strict-srfi-0" args)]
           [strict-letrec (or strict strict-srfi0 (member "-strict-letrec" 
args))]
           [hygienic (or r5rs (member "-hygienic" args) (member "-syntax" 
args))]
!          [home (chop-separator (chicken-home))]
           [ipath (map chop-separator (string-split (or (getenv
"CHICKEN_INCLUDE_PATH") "") ";"))] )
        
        (define (collect-options opt)
--- 875,881 ----
           [strict-srfi0 (member "-strict-srfi-0" args)]
           [strict-letrec (or strict strict-srfi0 (member "-strict-letrec" 
args))]
           [hygienic (or r5rs (member "-hygienic" args) (member "-syntax" 
args))]
!          [home (chop-separator (or (chicken-home) ""))]
           [ipath (map chop-separator (string-split (or (getenv
"CHICKEN_INCLUDE_PATH") "") ";"))] )
        
        (define (collect-options opt)

Diff finished at Mon Dec 20 08:08:18


cheers,
felix