Changeset 8795


Ignore:
Timestamp:
03/19/05 14:39:50 (16 years ago)
Author:
piso
Message:

EXIT, QUIT: support :STATUS keyword argument.

File:
1 edited

Legend:

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

    r8524 r8795  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Extensions.java,v 1.34 2005-02-10 12:55:51 piso Exp $
     5 * $Id: Extensions.java,v 1.35 2005-03-19 14:39:50 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    152152        public LispObject execute() throws ConditionThrowable
    153153        {
    154             exit();
     154            exit(0);
     155            return LispThread.currentThread().nothing();
     156        }
     157        public LispObject execute(LispObject first, LispObject second)
     158            throws ConditionThrowable
     159        {
     160            int status = 0;
     161            if (first == Keyword.STATUS) {
     162                if (second instanceof Fixnum)
     163                    status = ((Fixnum)second).value;
     164            }
     165            exit(status);
    155166            return LispThread.currentThread().nothing();
    156167        }
     
    163174        public LispObject execute() throws ConditionThrowable
    164175        {
    165             exit();
     176            exit(0);
     177            return LispThread.currentThread().nothing();
     178        }
     179        public LispObject execute(LispObject first, LispObject second)
     180            throws ConditionThrowable
     181        {
     182            int status = 0;
     183            if (first == Keyword.STATUS) {
     184                if (second instanceof Fixnum)
     185                    status = ((Fixnum)second).value;
     186            }
     187            exit(status);
    166188            return LispThread.currentThread().nothing();
    167189        }
Note: See TracChangeset for help on using the changeset viewer.