Changeset 14236 in project for chicken/trunk/setup-api.scm


Ignore:
Timestamp:
04/13/09 11:32:45 (11 years ago)
Author:
felix winkelmann
Message:

added er-macro-transformer

File:
1 edited

Legend:

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

    r14074 r14236  
    396396
    397397(define-syntax make
     398  ;;XXX use er-macro-transformer
    398399  (lambda (form r c)
    399400    (##sys#check-syntax 'make form '(_ _ . #(_ 0 1)))
     
    451452        (to (let ((to-path (if (pair? from) (make-pathname to (cadr from)) to)))
    452453              (if (and prefix (not (string-prefix? prefix to-path)))
    453                   (make-pathname prefix to-path) to-path))))
     454                  (make-pathname prefix to-path)
     455                  to-path))))
    454456    (ensure-directory to)
    455457    (cond ((or (glob? from) (file-exists? from))
Note: See TracChangeset for help on using the changeset viewer.