Changeset 2815 in project for build/build.scm


Ignore:
Timestamp:
01/10/07 12:32:40 (14 years ago)
Author:
felix winkelmann
Message:

rgraph fix by mario

File:
1 edited

Legend:

Unmodified
Added
Removed
  • build/build.scm

    r2488 r2815  
    341341     (map (match-lambda
    342342            ((target . deps)
    343              (list target deps
    344                    (eval
    345                     `(lambda ()
    346                        (build:clean-on-error
    347                         ',target
    348                         (lambda ()
    349                           (fluid-let ,(hash-table-ref/default *variables* target '())
    350                             (apply
    351                              (hash-table-ref/default
    352                               build:*actions* ',target
    353                               (lambda (t . _) (if ,*VERBOSE* (message "nothing to do for ~a" t))))
    354                              ',target ',deps) ) ) ) ) ) ) ) )
     343             (let ((vars (hash-table-ref/default *variables* target '())))
     344               (list target deps
     345                     (eval
     346                      `(lambda ()
     347                         (build:clean-on-error
     348                          ',target
     349                          (lambda ()
     350                            ,@(map (lambda (va)
     351                                     `(if (not (##sys#symbol-has-toplevel-binding? ',(car va)))
     352                                          (set! ,(car va) "") ) )
     353                                   vars)
     354                            (fluid-let ,vars
     355                              (apply
     356                               (hash-table-ref/default
     357                                build:*actions* ',target
     358                                (lambda (t . _) (if ,*VERBOSE* (message "nothing to do for ~a" t))))
     359                               ',target ',deps) ) ) ) ) ) ) ) ) )
    355360          (hash-table->alist *dependencies*) )
    356361     (list->vector (normalize targets)) ) ) )
Note: See TracChangeset for help on using the changeset viewer.