diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 18:14:50 +0000 |
commit | faaf19e1912ba48e9fbd195d2b90c4e205c87538 (patch) | |
tree | 18a81dba1f12285383ba73beaeb8febb6606ea37 /src/interp/i-syscmd.boot | |
parent | 9430f000bbcedcd6f0edbe1c4852cb2b51c50ccc (diff) | |
download | open-axiom-faaf19e1912ba48e9fbd195d2b90c4e205c87538.tar.gz |
cleanup
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r-- | src/interp/i-syscmd.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 4c6b618b..584eeac3 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -1139,7 +1139,7 @@ displayProperties(option,l) == displayMacro v sayMSG '" none" propsSeen:= nil - for [prop,:val] in pl | not MEMQ(prop,propsSeen) and val repeat + for [prop,:val] in pl | not symbolMember?(prop,propsSeen) and val repeat prop in '(alias generatedCode IS_-GENSYM mapBody localVars) => nil prop = 'condition => @@ -1639,7 +1639,7 @@ writeInputLines(fn,initial) == null fn => throwKeyedMsg("S2IH0038", nil) -- missing file name maxn := 72 - breakChars := [" ","+"] + breakChars := [char " ",char "+"] for i in initial..$IOindex - 1 repeat vecl := first readHiFi i if string? vecl then vecl := [vecl] @@ -1650,7 +1650,7 @@ writeInputLines(fn,initial) == done := nil for j in 1..maxn while not done repeat k := 1 + maxn - j - MEMQ(vec.k,breakChars) => + charMember?(stringChar(vec,k),breakChars) => svec := strconc(subString(vec,0,k+1),UNDERBAR) lineList := [svec,:lineList] done := true |