Changeset 28969 in project


Ignore:
Timestamp:
05/28/13 09:36:18 (6 years ago)
Author:
Ivan Raikov
Message:

srfi-4-utils: slight correction to variable naming

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-4-utils/trunk/srfi-4-utils.scm

    r28968 r28969  
    273273      (if (and (< i q) (< j r))
    274274          (let ((ai (vector-ref a i))
    275                 (bj (vector-ref a j)))
    276             (if (elt< i ai j bj)
     275                (aj (vector-ref a j)))
     276            (if (elt< i ai j aj)
    277277                (begin
    278278                  (vector-set! b k ai)
    279279                  (recur (+ 1 i) j (+ 1 k)))
    280280                (begin
    281                   (vector-set! b k bj)
     281                  (vector-set! b k aj)
    282282                  (recur i (+ 1 j) (+ 1 k)))
    283283                ))
Note: See TracChangeset for help on using the changeset viewer.