diff options
Diffstat (limited to 'src/interp/br-search.boot')
-rw-r--r-- | src/interp/br-search.boot | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/br-search.boot b/src/interp/br-search.boot index c3c997f0..4bb062b4 100644 --- a/src/interp/br-search.boot +++ b/src/interp/br-search.boot @@ -53,7 +53,7 @@ grepConstruct(s,key,:options) == --key = a o c d p x k (all) . (aok) w (doc) lines := grepConstruct1(s,key) lines is ["error",:.] => lines IFCAR options => grepSplit(lines,key = 'w) --leave now if a constructor - MEMQ(key,'(o a)) => dbScreenForDefaultFunctions lines --kill default lines if a/o + key in '(o a) => dbScreenForDefaultFunctions lines --kill default lines if a/o lines grepConstruct1(s,key) == @@ -151,7 +151,7 @@ checkPmParse parse == STRINGP parse => parse (fn parse => parse) where fn(u) == u is [op,:args] => - MEMQ(op,'(and or not)) and "and"/[checkPmParse x for x in args] + op in '(and or not) and "and"/[checkPmParse x for x in args] STRINGP u => true false nil @@ -265,7 +265,7 @@ mkGrepPattern1(x,:options) == --called by mkGrepPattern (and grepConstructName?) h(sl,res) == --helper for wild cards sl is [s,:r] => h(r,[$wild1,s,:res]) res := rest res - if not MEMQ('w,$options) then + if not ('w in $options) then if first res ~= '"" then res := ['"`",:res] else if res is [.,p,:r] and p = $wild1 then res := r "STRCONC"/NREVERSE res @@ -684,7 +684,7 @@ conSpecialString?(filter,:options) == false null parse => nil form := conLowerCaseConTran parse - MEMQ(KAR form,'(and or not)) or CONTAINED("*",form) => nil + KAR form in '(and or not) or CONTAINED("*",form) => nil filter = '"Mapping" =>nil u := kisValidType form => u secondTime => false @@ -844,7 +844,7 @@ generalSearchDo(htPage,flag) == form := mkDetailedGrepPattern(kindCode,name,nargs,npat) lines := applyGrep(form,'libdb) --lines := dbReadLines resultFile - if MEMQ(which,'(ops attrs)) then lines := dbScreenForDefaultFunctions lines + if which in '(ops attrs) then lines := dbScreenForDefaultFunctions lines kind := which = 'cons => n = 1 => @@ -955,7 +955,7 @@ grepSource key == key = 'gloss => STRCONC(systemRootDirectory(),'"doc/glosskey.text") key = $localLibdb => $localLibdb mkGrepTextfile - MEMQ(key, '(_. a c d k o p x)) => 'libdb + key in '(_. a c d k o p x) => 'libdb 'comdb mkGrepTextfile s == @@ -981,7 +981,7 @@ grepFile(pattern,:options) == -----AIX Version---------- target := getTempPath 'target casepart := - MEMQ('iv,options)=> '"-vi" + 'iv in options => '"-vi" '"-i" command := STRCONC('"grep ",casepart,'" _'",pattern,'"_' ",source) obey @@ -990,7 +990,7 @@ grepFile(pattern,:options) == STRCONC(command, '" > ",target) dbReadLines target ----Windows Version------ - invert? := MEMQ('iv, options) + invert? := 'iv in options GREP(source, pattern, false, not invert?) dbUnpatchLines lines |