M: no-such-state summary drop "No such state" ;
MEMO: string>state ( string -- state )
- dup states [ name>> = ] with find nip
- [ ] [ no-such-state ] ?if ;
+ [ states [ name>> = ] with find nip ]
+ [ no-such-state ] ?unless ;
TUPLE: city
first-zip name state latitude longitude gmt-offset dst-offset ;
MEMO: cities ( -- seq )
- "resource:extra/usa-cities/zipcode.csv" ascii file>csv
+ "vocab:usa-cities/zipcode.csv" ascii file>csv
rest-slice [
[
{