boolean-expr: make compilable by replacing `class` with `class-of`

diff --git a/extra/boolean-expr/boolean-expr.factor b/extra/boolean-expr/boolean-expr.factor
index 33e5e92e29d00cd59e091fa4b4effc0651894225..fe56b27282a2b2335790b7790dc13f8a83a35c3e 100644 (file)
--- a/extra/boolean-expr/boolean-expr.factor
+++ b/extra/boolean-expr/boolean-expr.factor
@@ -83,13 +83,13 @@ METHOD: (expr.) { □ } pprint ;
 : op. ( expr -- )
     "(" write
     [ x>> (expr.) ]
-    [ bl class pprint bl ]
+    [ bl class-of pprint bl ]
     [ y>> (expr.) ]
     tri
     ")" write ;
 
 METHOD: (expr.) { ⋀ } op. ;
 METHOD: (expr.) { ⋁ } op. ;
-METHOD: (expr.) { ¬ } [ class pprint ] [ x>> (expr.) ] bi ;
+METHOD: (expr.) { ¬ } [ class-of pprint ] [ x>> (expr.) ] bi ;
 
 : expr. ( expr -- ) (expr.) nl ;