Changeset 13878 in project


Ignore:
Timestamp:
03/23/09 16:06:10 (11 years ago)
Author:
Kon Lovett
Message:

Save.

Location:
release/3/locale/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/locale/trunk/locale-errors.scm

    r13860 r13878  
    1212    type-error) )
    1313
     14(require-extension srfi-12)
     15
    1416;;;
    15 
    1617
    1718;;
     
    2324  (string-append "bad argument type - expected " typmsg) )
    2425
    25 (define (type-condition) (make-property-condition 'type))
     26(define (make-type-condition) (make-property-condition 'type))
    2627
    2728(define (make-type-error-condition loc typmsg bad)
    2829  (make-composite-condition
    2930   (make-exn-condition loc (make-type-error-message typmsg) bad)
    30    (type-condition)) )
     31   (make-type-condition)) )
     32
     33;;
    3134
    3235(define (type-error loc typmsg bad)
  • release/3/locale/trunk/locale.scm

    r13860 r13878  
    3636          (let-optionals args ((str #f) (src "USER"))
    3737            (check-string-or-false 'current-timezone str)
    38             (let ((lc (and str (posix-timezone-string->locale-components str src))))
     38            (let ((lc (and str (posix-timezone-string->timezone-components str src))))
    3939              (set-locale-category! 'timezone lc) ) ) ) ) )
    4040
Note: See TracChangeset for help on using the changeset viewer.