Changeset 2285


Ignore:
Timestamp:
06/11/03 01:02:28 (19 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r2248 r2285  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: reduce.lisp,v 1.1 2003-06-10 16:04:55 piso Exp $
     4;;; $Id: reduce.lisp,v 1.2 2003-06-11 01:02:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5454      (if (listp sequence)
    5555          (if from-end
    56               (list-reduce-from-end  function sequence start end initial-value ivp key)
     56              (list-reduce-from-end function sequence start end initial-value ivp key)
    5757              (list-reduce function sequence start end initial-value ivp key))
    5858          (let* ((disp (if from-end -1 1))
Note: See TracChangeset for help on using the changeset viewer.