Changeset 5179


Ignore:
Timestamp:
12/18/03 18:03:23 (17 years ago)
Author:
piso
Message:

Made type errors more informative (in some cases).

File:
1 edited

Legend:

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

    r5112 r5179  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StructureObject.java,v 1.17 2003-12-13 00:02:47 piso Exp $
     5 * $Id: StructureObject.java,v 1.18 2003-12-18 18:03:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    109109            }
    110110            catch (ClassCastException e) {
    111                 return signal(new TypeError());
     111                return signal(new TypeError(arg, Symbol.STRUCTURE_OBJECT));
    112112            }
    113113            catch (ArrayIndexOutOfBoundsException e) {
     
    126126            }
    127127            catch (ClassCastException e) {
    128                 return signal(new TypeError());
     128                return signal(new TypeError(arg, Symbol.STRUCTURE_OBJECT));
    129129            }
    130130            catch (ArrayIndexOutOfBoundsException e) {
     
    143143            }
    144144            catch (ClassCastException e) {
    145                 return signal(new TypeError());
     145                return signal(new TypeError(arg, Symbol.STRUCTURE_OBJECT));
    146146            }
    147147            catch (ArrayIndexOutOfBoundsException e) {
     
    184184            }
    185185            catch (ClassCastException e) {
    186                 return signal(new TypeError());
     186                return signal(new TypeError(first, Symbol.STRUCTURE_OBJECT));
    187187            }
    188188            catch (ArrayIndexOutOfBoundsException e) {
     
    203203            }
    204204            catch (ClassCastException e) {
    205                 return signal(new TypeError());
     205                return signal(new TypeError(first, Symbol.STRUCTURE_OBJECT));
    206206            }
    207207            catch (ArrayIndexOutOfBoundsException e) {
     
    222222            }
    223223            catch (ClassCastException e) {
    224                 return signal(new TypeError());
     224                return signal(new TypeError(first, Symbol.STRUCTURE_OBJECT));
    225225            }
    226226            catch (ArrayIndexOutOfBoundsException e) {
Note: See TracChangeset for help on using the changeset viewer.