Changeset 38132 in project


Ignore:
Timestamp:
01/19/20 18:44:35 (3 months ago)
Author:
Kon Lovett
Message:

name an idiom, local variable adds nothing

Location:
release/5/srfi-19/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-19/trunk/srfi-19-common.scm

    r38130 r38132  
    3333(define-inline (->boolean obj) (and obj #t))
    3434
     35(define-inline (true? obj) (and obj (boolean? obj)))
     36
    3537;; fx-utils
    3638
  • release/5/srfi-19/trunk/srfi-19-timezone.scm

    r38130 r38132  
    3636
    3737(define-inline (make-utc-timezone)
    38   (let ((tzc (make-timezone-components "UTC0" (builtin-source-name))))
    39     (update-timezone-components! tzc 'std-name "UTC" 'std-offset 0) ) )
     38  (update-timezone-components!
     39    (make-timezone-components "UTC0" (builtin-source-name))
     40    'std-name "UTC" 'std-offset 0) )
    4041
    4142(define-inline (timezone-components-ref/dst? tzc a b)
    42   (timezone-component-ref tzc (if (timezone-component-ref tzc 'dst?) a b)) )
     43  (timezone-component-ref tzc
     44    (if (timezone-component-ref tzc 'dst?) a b)) )
    4345
    4446;;
     
    4951      ((timezone-components? x)
    5052        x )
    51       ((and x (boolean? x))
     53      ((true? x)
    5254        (current-timezone-components) )
    5355      (else
     
    6062      ((timezone-components? x)
    6163        x )
    62       ((and x (boolean? x))
     64      ((true? x)
    6365        (make-utc-timezone) )
    6466      (else
Note: See TracChangeset for help on using the changeset viewer.