Changeset 14835 in project


Ignore:
Timestamp:
05/29/09 22:05:23 (10 years ago)
Author:
sjamaan
Message:

Fix bugs in let-locale found by scrutiny

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/intarweb/trunk/header-parsers.scm

    r14574 r14835  
    202202  (syntax-rules ()
    203203    ((let-locale ((cat val) ...) body ...)
    204      (let ((backup '())
    205            )
     204     (let ((backup '()))
    206205       (dynamic-wind
    207            (lambda () (set! backup '((cat . ,(setlocale cat val)) ...)))
     206           (lambda () (set! backup `((cat . ,(setlocale cat val)) ...)))
    208207           (lambda () body ...)
    209            (lambda () (setlocale cat (alist-ref backup 'cat)) ...))))))
     208           (lambda () (setlocale cat (alist-ref 'cat backup)) ...))))))
    210209
    211210(define (rfc1123-string->time str)
Note: See TracChangeset for help on using the changeset viewer.