From 010d0ef2de3268dac879409e34dbc2504ea38ccc Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 18 Feb 2018 16:12:31 -0800
Subject: [PATCH] shapefiles: fix stacke effect names in read-shp.

---
 extra/shapefiles/shapefiles.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/shapefiles/shapefiles.factor b/extra/shapefiles/shapefiles.factor
index 49a85d1438..fe33b05b7d 100644
--- a/extra/shapefiles/shapefiles.factor
+++ b/extra/shapefiles/shapefiles.factor
@@ -167,10 +167,10 @@ TUPLE: record number content-length shape ;
 : read-records ( -- records )
     [ read-record dup ] [ ] produce nip ;
 
-: read-shp ( -- header shapes )
+: read-shp ( -- header records )
     read-header read-records ;
 
-: file>shp ( path -- header shapes )
+: file>shp ( path -- header records )
     binary [ read-shp ] with-file-reader ;
 
 TUPLE: index offset content-length ;