Changeset 4930


Ignore:
Timestamp:
11/30/03 17:27:19 (18 years ago)
Author:
piso
Message:

_load(): use Site.getLispHome() if Lisp.class.getResource(filename) returns null.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Load.java

    r4718 r4930  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Load.java,v 1.25 2003-11-13 17:49:47 piso Exp $
     5 * $Id: Load.java,v 1.26 2003-11-30 17:27:19 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    140140            }
    141141        } else {
    142             // Look in current directory.
    143             File file = new File(System.getProperty("user.dir"), filename);
    144             if (file.isFile()) {
    145                 try {
    146                     in = new FileInputStream(file);
    147                     truename = file.getCanonicalPath();
    148                 }
    149                 catch (IOException e) {
    150                     in = null;
     142            final String dir = Site.getLispHome();
     143            if (dir != null) {
     144                File file = new File(dir, filename);
     145                if (file.isFile()) {
     146                    try {
     147                        in = new FileInputStream(file);
     148                        truename = file.getCanonicalPath();
     149                    }
     150                    catch (IOException e) {
     151                        in = null;
     152                    }
    151153                }
    152154            }
Note: See TracChangeset for help on using the changeset viewer.