Changeset 13945 in project for chicken


Ignore:
Timestamp:
03/26/09 15:59:07 (11 years ago)
Author:
felix winkelmann
Message:

work

Location:
chicken/branches/scrutiny
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/scrutiny/TODO

    r13389 r13945  
    108108*** document qs, normalize-pathname
    109109
     110** scrutiny
     111*** document `type' declaration and type specifiers
     112
    110113
    111114* tests
  • chicken/branches/scrutiny/scrutinizer.scm

    r13911 r13945  
    185185     (sprintf ", but where given ~a" given)))
    186186  (define (location-name loc)
    187     (cond ((not loc) "(at toplevel) ")
     187    (cond ((not loc) "at toplevel:\n")
    188188          ((null? (cdr loc))
    189            (conc "(in toplevel procedure `" (car loc) "') "))
     189           (conc "in toplevel procedure `" (car loc) "':\n"))
    190190          (else
    191            (string-append
    192             "("
    193             (let rec ((loc loc))
    194               (if (null? (cdr loc))
    195                   (conc "in toplevel procedure `" (car loc) "') ")
    196                   (conc
    197                    "in `" (car loc) "',"
    198                    (rec (cdr loc)))))))))
     191           (let rec ((loc loc))
     192             (if (null? (cdr loc))
     193                 (conc "in toplevel procedure `" (car loc) "':\n")
     194                 (conc
     195                  "in local procedure `" (car loc) "',\n"
     196                  (rec (cdr loc))))))))
    199197  (define (simplify t)
    200198    (let ((t2 (simplify1 t)))
Note: See TracChangeset for help on using the changeset viewer.