From 0453edb8bfdc8c157eed7798621880295275ffbc Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sun, 21 Jan 2018 23:11:11 +0100
Subject: [PATCH] boolean-expr: make compilable by replacing `class` with
 `class-of`

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

diff --git a/extra/boolean-expr/boolean-expr.factor b/extra/boolean-expr/boolean-expr.factor
index 33e5e92e29..fe56b27282 100644
--- 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 ;