Ignore:
Timestamp:
03/01/08 15:57:54 (12 years ago)
Author:
Kon Lovett
Message:

Fix for e-mail uri query processing. Cosmetic chgs.

Location:
release/3/logging/tags/1.1.0
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/3/logging/tags/1.1.0/logging-catalogs.scm

    r9025 r9139  
    11;;;; logging-catalogs.scm
    22;;;; Kon Lovett, Sep '06
    3 
    4 (use srfi-18 utils)
    5 (use lookup-table synch miscmacros)
    6 (use logging-errors)
    73
    84(eval-when (compile)
     
    3127                log$log-catalog-for-each) ) )
    3228
     29(use srfi-18 utils)
     30(use lookup-table synch miscmacros)
     31(use logging-errors)
     32
    3333;;; Catalog Support
    3434
     
    3838        (%let/synch ([dict cat])
    3939                (if (symbol? key)
    40                         (values
    41                           key
    42                           (dict-ref dict key))
    43                         (values
    44                                 (dict-search dict
    45                                         (lambda (id value)
    46                                                 (and (equal? key value)
    47                                                            (begin (set! key id) #t))))
    48                                 key) ) ) )
     40        (values
     41          key
     42          (dict-ref dict key))
     43        (values
     44          (dict-search dict
     45            (lambda (id value)
     46              (and (equal? key value)
     47                   (begin (set! key id) #t))))
     48          key) ) ) )
    4949
    5050(define (log$catalog-value cat key)
     
    6565        (let/synch ([dict cat])
    6666                (if (dict-ref dict key)
    67                         (log$error loc "identifier in use" key)
    68                         (dict-set! dict key value)) ) )
     67        (log$error loc "identifier in use" key)
     68        (dict-set! dict key value)) ) )
    6969
    7070(define (log$catalog-set! cat key value loc)
Note: See TracChangeset for help on using the changeset viewer.