Changeset 4767


Ignore:
Timestamp:
11/15/03 15:42:55 (18 years ago)
Author:
asimon
Message:

%JREGISTER-HANDLER: set data even if nil.

File:
1 edited

Legend:

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

    r4746 r4767  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: JHandler.java,v 1.3 2003-11-14 15:49:26 piso Exp $
     5 * $Id: JHandler.java,v 1.4 2003-11-15 15:42:55 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    9292                entryTable = (Map)table.get(object);
    9393            }
    94             Entry entry = new Entry((Function) args[2], event, entryTable);
    95             if (args[3] != NIL) entry.addData (args[3]);
    96             if (args[4] != NIL) entry.addCount (((Fixnum)args[4]).getValue());
     94            Entry entry = new Entry((Function) args[2], args[3], event, entryTable);
     95            if (args[4] != NIL) entry.addCount(((Fixnum)args[4]).getValue());
    9796            entryTable.put(event,entry);
    9897            return T;
     
    103102class Entry
    104103{
    105     public Entry (Function handler, String event, Map entryTable) {
     104    public Entry (Function handler, LispObject data, String event, Map entryTable) {
    106105        this.entryTable = entryTable;
    107106        this.event = event;
    108107        this.handler = handler;
     108        this.data = data;
    109109    }
    110110
Note: See TracChangeset for help on using the changeset viewer.