From a9ddea93497d4931820b2ec8aaeef051258cdd04 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 16 Mar 2013 13:41:51 -0700 Subject: [PATCH] stack-checker: more use of hash-sets. --- basis/compiler/crossref/crossref.factor | 2 +- basis/stack-checker/dependencies/dependencies.factor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/compiler/crossref/crossref.factor b/basis/compiler/crossref/crossref.factor index b44083222f..acadf82fee 100644 --- a/basis/compiler/crossref/crossref.factor +++ b/basis/compiler/crossref/crossref.factor @@ -109,4 +109,4 @@ generic-call-site-crossref [ H{ } clone ] initialize tri ; : set-dependency-checks ( word deps -- ) - keys f like "dependency-checks" set-word-prop ; + members f like "dependency-checks" set-word-prop ; diff --git a/basis/stack-checker/dependencies/dependencies.factor b/basis/stack-checker/dependencies/dependencies.factor index ea38ef5478..a005eaeb44 100644 --- a/basis/stack-checker/dependencies/dependencies.factor +++ b/basis/stack-checker/dependencies/dependencies.factor @@ -69,7 +69,7 @@ GENERIC: satisfied? ( dependency -- ? ) : add-conditional-dependency ( ... class -- ) boa conditional-dependencies get - dup [ conjoin ] [ 2drop ] if ; inline + dup [ adjoin ] [ 2drop ] if ; inline TUPLE: depends-on-class-predicate class1 class2 result ; @@ -147,7 +147,7 @@ M: depends-on-final satisfied? : init-dependencies ( -- ) H{ } clone dependencies set H{ } clone generic-dependencies set - H{ } clone conditional-dependencies set ; + HS{ } clone conditional-dependencies set ; : without-dependencies ( quot -- ) [