Changeset 3890


Ignore:
Timestamp:
09/19/03 14:11:02 (19 years ago)
Author:
piso
Message:

Conditions: work in progress.

File:
1 edited

Legend:

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

    r3889 r3890  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Throw.java,v 1.5 2003-09-19 13:02:44 piso Exp $
     5 * $Id: Throw.java,v 1.6 2003-09-19 14:11:02 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
    24 public final class Throw extends LispError
     24public final class Throw extends ConditionThrowable
    2525{
    2626    private final LispObject tag;
     
    4646    }
    4747
    48     public String getMessage()
     48    public Condition getCondition()
    4949    {
    50         return "attempt to throw to the non-existent tag " + tag;
     50        return new ControlError("attempt to throw to the non-existent tag " + tag);
    5151    }
    5252}
Note: See TracChangeset for help on using the changeset viewer.