Builtinn types now use new slot accessors; tuple slot type declaration work in progress

[factor.git] / extra / usa-cities / usa-cities.factor

diff --git a/extra/usa-cities/usa-cities.factor b/extra/usa-cities/usa-cities.factor
index 0149c6832b420668744b0fb45419335d2313e686..1fb0b83393919ae00f31b2d78f2099605e70fba6 100644 (file)
--- a/extra/usa-cities/usa-cities.factor
+++ b/extra/usa-cities/usa-cities.factor
@@ -21,7 +21,7 @@ ERROR: no-such-state name ;
 M: no-such-state summary drop "No such state" ;
 
 MEMO: string>state ( string -- state )
-    dup states [ word-name = ] with find nip
+    dup states [ name>> = ] with find nip
     [ ] [ no-such-state ] ?if ;
 
 TUPLE: city