steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

factor-shell
Alexander Iljin 2018-01-21 23:11:11 +01:00
parent 9a813fa7f5
commit 0453edb8bf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/boolean-expr/boolean-expr.factor
View File

@ -83,13 +83,13 @@ METHOD: (expr.) { □ } pprint ;
: op. ( expr -- ) : op. ( expr -- )
"(" write "(" write
[ x>> (expr.) ] [ x>> (expr.) ]
[ bl class pprint bl ] [ bl class-of pprint bl ]
[ y>> (expr.) ] [ y>> (expr.) ]
tri tri
")" write ; ")" write ;
METHOD: (expr.) { ⋀ } op. ; METHOD: (expr.) { ⋀ } op. ;
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 ; : expr. ( expr -- ) (expr.) nl ;