Changeset 4559


Ignore:
Timestamp:
10/28/03 16:02:31 (18 years ago)
Author:
piso
Message:

HANDLER-CASE: catch and re-throw Return.

File:
1 edited

Legend:

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

    r4557 r4559  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.488 2003-10-28 02:41:16 piso Exp $
     5 * $Id: Primitives.java,v 1.489 2003-10-28 16:02:31 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    16131613
    16141614    // ### handler-case
     1615    // Should be a macro.
    16151616    private static final SpecialOperator HANDLER_CASE =
    16161617        new SpecialOperator("handler-case")
     
    16261627            try {
    16271628                result = eval(form, env, thread);
     1629            }
     1630            catch (Return ret) {
     1631                throw ret;
    16281632            }
    16291633            catch (ConditionThrowable throwable) {
Note: See TracChangeset for help on using the changeset viewer.