Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferr...

[factor.git] / extra / roles / roles.factor

diff --git a/extra/roles/roles.factor b/extra/roles/roles.factor
index d54b4339a703a523641ab2ac8fc8531ada525b55..3a58be9830aa51686eb54e0e6867e394aab73233 100644 (file)
--- a/extra/roles/roles.factor
+++ b/extra/roles/roles.factor
@@ -12,7 +12,7 @@ PREDICATE: role < mixin-class
     "role-slots" word-prop >boolean ;
 
 : parse-role-definition ( -- class superroles slots )
-    CREATE-CLASS scan {
+    scan-new-class scan-token {
         { ";" [ { } { } ] }
         { "<" [ scan-word 1array [ parse-tuple-slots ] { } make ] }
         { "<{" [ \ } parse-until >array [ parse-tuple-slots ] { } make ] }