Changeset 2285 for trunk/j/src/org/armedbear/lisp/reduce.lisp

Timestamp:

06/11/03 01:02:28 (19 years ago)

Author:

piso

Message:

Minor cleanup.

File:

• trunk/j/src/org/armedbear/lisp/reduce.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/reduce.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: reduce.lisp,v 1.1 2003-06-10 16:04:55 piso Exp $
+;;; $Id: reduce.lisp,v 1.2 2003-06-11 01:02:28 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -54 +54 @@
       (if (listp sequence)
           (if from-end
-              (list-reduce-from-end  function sequence start end initial-value ivp key)
+              (list-reduce-from-end function sequence start end initial-value ivp key)
               (list-reduce function sequence start end initial-value ivp key))
           (let* ((disp (if from-end -1 1))