From 7a3c086178687d951b4e7233d1647fdde4bbadbd Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 22 Feb 2009 17:14:46 -0600 Subject: [PATCH] remove ?at from db.types, images.tiff --- basis/db/types/types.factor | 3 --- basis/images/tiff/tiff.factor | 3 --- 2 files changed, 6 deletions(-) diff --git a/basis/db/types/types.factor b/basis/db/types/types.factor index e39a5977ef..30116e3fc5 100755 --- a/basis/db/types/types.factor +++ b/basis/db/types/types.factor @@ -124,9 +124,6 @@ FACTOR-BLOB NULL URL ; ! PostgreSQL Types: ! http://developer.postgresql.org/pgdocs/postgres/datatype.html -: ?at ( obj assoc -- value/obj ? ) - dupd at* [ [ nip ] [ drop ] if ] keep ; - ERROR: unknown-modifier modifier ; : lookup-modifier ( obj -- string ) diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor index 02440deea5..a50ac0cad9 100755 --- a/basis/images/tiff/tiff.factor +++ b/basis/images/tiff/tiff.factor @@ -243,9 +243,6 @@ ERROR: bad-tiff-magic bytes ; ERROR: no-tag class ; -: ?at ( key assoc -- value/key ? ) - dupd at* [ nip t ] [ drop f ] if ; inline - : find-tag ( idf class -- tag ) swap processed-tags>> ?at [ no-tag ] unless ;