Changeset 5242


Ignore:
Timestamp:
12/21/03 15:56:13 (18 years ago)
Author:
piso
Message:

SYMBOL-FUNCTION: report error correctly.

File:
1 edited

Legend:

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

    r5134 r5242  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Symbol.java,v 1.100 2003-12-14 17:40:09 piso Exp $
     5 * $Id: Symbol.java,v 1.101 2003-12-21 15:56:13 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    499499
    500500    // ### symbol-function
    501     public static final Primitive1 SYMBOL_FUNCTION = new Primitive1("symbol-function","symbol")
     501    public static final Primitive1 SYMBOL_FUNCTION =
     502        new Primitive1("symbol-function", "symbol")
    502503    {
    503504        public LispObject execute(LispObject arg) throws ConditionThrowable
     
    507508                if (function != null)
    508509                    return function;
     510                return signal(new UndefinedFunction(arg));
    509511            }
    510512            catch (ClassCastException e) {
    511                 ; // Fall through.
    512             }
    513             // function == null or ClassCastException
    514             return signal(new TypeError(arg, "symbol"));
     513                return signal(new TypeError(arg, "symbol"));
     514            }
    515515        }
    516516    };
Note: See TracChangeset for help on using the changeset viewer.