shapefiles: fix stacke effect names in read-shp.
parent
a2d76ffda9
commit
010d0ef2de
|
@ -167,10 +167,10 @@ TUPLE: record number content-length shape ;
|
||||||
: read-records ( -- records )
|
: read-records ( -- records )
|
||||||
[ read-record dup ] [ ] produce nip ;
|
[ read-record dup ] [ ] produce nip ;
|
||||||
|
|
||||||
: read-shp ( -- header shapes )
|
: read-shp ( -- header records )
|
||||||
read-header read-records ;
|
read-header read-records ;
|
||||||
|
|
||||||
: file>shp ( path -- header shapes )
|
: file>shp ( path -- header records )
|
||||||
binary [ read-shp ] with-file-reader ;
|
binary [ read-shp ] with-file-reader ;
|
||||||
|
|
||||||
TUPLE: index offset content-length ;
|
TUPLE: index offset content-length ;
|
||||||
|
|
Loading…
Reference in New Issue