Changeset 13632 in project for chicken


Ignore:
Timestamp:
03/10/09 00:03:52 (11 years ago)
Author:
Kon Lovett
Message:

Renamed 'dir' -> 'nam' in 'extension-name-and-version'.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/setup-api.scm

    r13550 r13632  
    690690             '("" "") ]
    691691            [(and (list? x) (= 2 (length x)))
    692              (let ([dir (car x)]
     692             (let ([nam (car x)]
    693693                   [ver (cadr x)]
    694694                   [ensure-string (lambda (x) (if (or (not x) (null? x)) "" (->string x)))])
    695                (list (ensure-string dir) (ensure-string ver)) ) ]
     695               (list (ensure-string nam) (ensure-string ver)) ) ]
    696696            [else
    697697             (warning "invalid extension-name-and-version" x)
Note: See TracChangeset for help on using the changeset viewer.