Changeset 34496 in project


Ignore:
Timestamp:
09/02/17 22:35:14 (3 weeks ago)
Author:
kon
Message:

add chk

Location:
release/4/geo-utils/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/geo-utils/trunk/geobox.scm

    r34129 r34496  
    2727;;;
    2828
     29;;
     30
    2931(define make-geobox
    3032  (case-lambda
     
    5456
    5557(define (geobox-minimum gb)
    56   (*geobox-minimum gb) )
     58  (*geobox-minimum (check-geobox 'geobox-minimum gb)) )
    5759
    5860(define (geobox-maximum gb)
    59   (*geobox-maximum gb) )
     61  (*geobox-maximum (check-geobox 'geobox-maximum gb)) )
     62
     63;;
    6064
    6165(define (geobox= gb1 gb2)
  • release/4/geo-utils/trunk/geopoint.scm

    r34418 r34496  
    2929
    3030;;;
     31
     32;;
    3133
    3234(define (make-geopoint lat lon)
Note: See TracChangeset for help on using the changeset viewer.