Changeset 4743


Ignore:
Timestamp:
11/14/03 15:33:20 (18 years ago)
Author:
piso
Message:

JREGISTER-HANDLER1 => %JREGISTER-HANDLER
Minor cleanup.

File:
1 edited

Legend:

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

    r4737 r4743  
    22 * JHandler.java
    33 *
    4  * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: JHandler.java,v 1.1 2003-11-14 13:34:31 asimon Exp $
     4 * Copyright (C) 2003 Peter Graves
     5 * $Id: JHandler.java,v 1.2 2003-11-14 15:33:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
     24import java.util.HashMap;
    2425import java.util.Map;
    25 import java.util.HashMap;
    2626import java.util.WeakHashMap;
    2727
    28 public final class JHandler extends Module
     28public final class JHandler extends Lisp
    2929{
    30     static {
    31         table = new WeakHashMap();
    32     }
    33 
    34     private static Map table;
     30    private static final Map table = new WeakHashMap();
    3531
    3632    public static void callLisp (String s, Object o) {
     
    7571                    t.printStackTrace();
    7672                }
    77             } 
     73            }
    7874        }
    7975    }
    80  
     76
    8177    // jregister-handler1 object event handler data count
    82     private static final Primitive JREGISTER_HANDLER1 = new Primitive("jregister-handler1", PACKAGE_JAVA)
     78    private static final Primitive _JREGISTER_HANDLER =
     79        new Primitive("%jregister-handler", PACKAGE_JAVA)
    8380    {
    8481        public LispObject execute(LispObject[] args) throws ConditionThrowable
     
    104101}
    105102
    106 class Entry 
     103class Entry
    107104{
    108105    public Entry (Function handler, String event, Map entryTable) {
Note: See TracChangeset for help on using the changeset viewer.