Changeset 3555


Ignore:
Timestamp:
09/02/03 16:33:28 (19 years ago)
Author:
piso
Message:

NUMERATOR, DENOMINATOR

File:
1 edited

Legend:

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

    r3551 r3555  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.363 2003-09-02 16:14:16 piso Exp $
     5 * $Id: Primitives.java,v 1.364 2003-09-02 16:33:28 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    47344734    };
    47354735
     4736    // ### numerator
     4737    private static final Primitive1 NUMERATOR = new Primitive1("numerator") {
     4738        public LispObject execute(LispObject arg) throws LispError
     4739        {
     4740            return arg.NUMERATOR();
     4741        }
     4742    };
     4743
     4744    // ### denominator
     4745    private static final Primitive1 DENOMINATOR = new Primitive1("denominator") {
     4746        public LispObject execute(LispObject arg) throws LispError
     4747        {
     4748            return arg.DENOMINATOR();
     4749        }
     4750    };
     4751
    47364752    // ### realpart
    47374753    private static final Primitive1 REALPART = new Primitive1("realpart") {
Note: See TracChangeset for help on using the changeset viewer.