From 3001c20b2419013377ecedaa59163d8d67399807 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 15 Jan 2020 13:54:40 -0800 Subject: [PATCH] tuple-arrays: final-class wasn't a predicate class. --- basis/tuple-arrays/tuple-arrays-tests.factor | 2 +- basis/tuple-arrays/tuple-arrays.factor | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/basis/tuple-arrays/tuple-arrays-tests.factor b/basis/tuple-arrays/tuple-arrays-tests.factor index f588b5db39..87218e491b 100644 --- a/basis/tuple-arrays/tuple-arrays-tests.factor +++ b/basis/tuple-arrays/tuple-arrays-tests.factor @@ -1,5 +1,5 @@ USING: tuple-arrays sequences tools.test namespaces kernel -math accessors classes.tuple eval classes.struct ; +math accessors classes classes.tuple eval classes.struct ; IN: tuple-arrays.tests SYMBOL: mat diff --git a/basis/tuple-arrays/tuple-arrays.factor b/basis/tuple-arrays/tuple-arrays.factor index 8d8b3bfa16..8b8cc60afd 100644 --- a/basis/tuple-arrays/tuple-arrays.factor +++ b/basis/tuple-arrays/tuple-arrays.factor @@ -27,8 +27,7 @@ MACRO: write-tuple ( class -- quot ) : check-final ( class -- ) tuple-class check-instance - final-class check-instance - drop ; + dup final-class? [ drop ] [ not-final ] if ; PRIVATE>