From edbaba2322a1bddd9a25e457afe1be4d304fd39c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 22 Feb 2009 17:29:27 -0600 Subject: [PATCH] report the value not found in lzw --- basis/compression/lzw/lzw.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compression/lzw/lzw.factor b/basis/compression/lzw/lzw.factor index 67248474d3..29cbe96d69 100644 --- a/basis/compression/lzw/lzw.factor +++ b/basis/compression/lzw/lzw.factor @@ -69,11 +69,11 @@ ERROR: index-too-big n ; : omega-k-in-table? ( lzw -- ? ) [ omega-k>> ] [ table>> ] bi key? ; -ERROR: not-in-table ; +ERROR: not-in-table value ; : write-output ( lzw -- ) [ - [ omega>> ] [ table>> ] bi at* [ not-in-table ] unless + [ omega>> ] [ table>> ] bi ?at [ not-in-table ] unless ] [ [ lzw-bit-width-compress ] [ output>> write-bits ] bi