Changeset 8062 in project


Ignore:
Timestamp:
02/02/08 16:21:37 (12 years ago)
Author:
felix winkelmann
Message:

process-lambda-doc. is only called for global vars; removed nl after printing chicken banner

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/batch-driver.scm

    r7274 r8062  
    381381           (unless quiet
    382382             (print-version #t)
    383              (display "\n\nEnter \"chicken -help\" for information on how to use it.\n") ) )
     383             (display "\nEnter \"chicken -help\" for information on how to use it.\n") ) )
    384384          (else
    385385
  • chicken/trunk/compiler.scm

    r8027 r8062  
    631631                                     (l `(lambda ,llist2 ,body)) )
    632632                                (set-real-names! aliases vars)
    633                                 (if dest
    634                                     (if (and emit-profile (eq? 'lambda name))
    635                                         (expand-profile-lambda dest llist2 body)
    636                                         (match body0
    637                                           (('begin (or (? string? doc) ('quote doc)) _ . more)
    638                                            (process-lambda-documentation
    639                                             dest doc l) )
    640                                           (_ l) ) )
    641                                     l) ) ) ) ) )
     633                                (cond ((or (not dest)
     634                                           (not (eq? dest (resolve dest ae)))) ; global?
     635                                       l)
     636                                      ((and emit-profile (eq? 'lambda name))
     637                                       (expand-profile-lambda dest llist2 body) )
     638                                      (else
     639                                       (match body0
     640                                         (('begin (or (? string? doc) ('quote doc)) _ . more)
     641                                          (process-lambda-documentation
     642                                           dest doc l) )
     643                                         (_ l) ) ) ) ) ) ) ) )
    642644
    643645                        ((##core#named-lambda)
Note: See TracChangeset for help on using the changeset viewer.