diff options
Diffstat (limited to 'src/interp/alql.boot')
-rw-r--r-- | src/interp/alql.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/alql.boot b/src/interp/alql.boot index 5b7431ad..56358a87 100644 --- a/src/interp/alql.boot +++ b/src/interp/alql.boot @@ -1,5 +1,7 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without -- modification, are permitted provided that the following conditions are @@ -35,7 +37,7 @@ namespace BOOT getBrowseDatabase(kind) == $includeUnexposed? : local := true - not member(kind,'("o" "k" "c" "d" "p")) => nil + not (kind in '("o" "k" "c" "d" "p")) => nil grepConstruct('"*",INTERN kind) stringMatches?(pattern,subject) == |