Changeset 14091 in project


Ignore:
Timestamp:
04/05/09 20:50:16 (11 years ago)
Author:
sjamaan
Message:

Make s48-modules file inclusions work relative to the filename they are included from

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/s48-modules/s48-modules.scm

    r11218 r14091  
    130130                       (process-body (cdr body) fs))
    131131                      ((c %files (car clause))
    132                        ;;*** should be relative to current file
    133132                       (set! defs
    134133                         (cons `(,%include
    135                                  ,@(map (lambda (fspec)
    136                                           (cond ((string? fspec) fspec)
    137                                                 ((list? fspec)
    138                                                  (string-intersperse
    139                                                   (map ->string fspec)
    140                                                   "/") )
    141                                                 (else (->string fspec))) )
     134                                 ,@(map
     135                                    (lambda (fspec)
     136                                      (let ((f (cond ((string? fspec) fspec)
     137                                                     ((list? fspec)
     138                                                      (string-intersperse
     139                                                       (map ->string fspec)
     140                                                       "/") )
     141                                                     (else (->string fspec)))))
     142                                        (make-pathname
     143                                         (pathname-directory
     144                                          ##sys#current-source-filename)
     145                                         f)) )
    142146                                        (cdr clause)))
    143147                               defs))
Note: See TracChangeset for help on using the changeset viewer.