diff options
Diffstat (limited to 'src/interp/compress.boot')
| -rw-r--r-- | src/interp/compress.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/compress.boot b/src/interp/compress.boot index 43b7a102..1d32a223 100644 --- a/src/interp/compress.boot +++ b/src/interp/compress.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007, Gabriel Dos Reis. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -44,7 +44,7 @@ minimalise x == min x == y:=HGET($hash,x) y => y - CONSP x => + cons? x => x = '(QUOTE T) => '(QUOTE T) -- copes with a particular Lucid-ism, God knows why -- This circular way of doing things is an attempt to deal with Lucid @@ -58,7 +58,7 @@ minimalise x == for i in 0..MAXINDEX x repeat x.i:=min (x.i) HashCheck x - STRINGP x => HashCheck x + string? x => HashCheck x x HashCheck x == y:=HGET($hash,x) |