diff options
author | dos-reis <gdr@axiomatics.org> | 2008-08-02 13:03:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-08-02 13:03:26 +0000 |
commit | 4ac600edddd39335715c053ded118a59c804778d (patch) | |
tree | d60f88eb9626a3a0de210246dcc36198478b5ad0 /src/interp/wi1.boot | |
parent | c129ad817cd16aef92f5b433a509e15254b9ccd3 (diff) | |
download | open-axiom-4ac600edddd39335715c053ded118a59c804778d.tar.gz |
* interp/buildom.boot: Use constants by names.
* interp/i-analy.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-funsel.boot: Likewise.
* interp/i-intern.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec1.boot: Likewise.
* interp/mark.boot: Likewise.
* interp/nrungo.boot: Likewise.
* interp/postpar.boot: Likewise.
* interp/wi1.boot: Likewise.
Diffstat (limited to 'src/interp/wi1.boot')
-rw-r--r-- | src/interp/wi1.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index bcbf2bda..c1b48904 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -348,8 +348,8 @@ compAtom(x,m,e) == compSymbol(x,m,e) or return nil m = $Expression and primitiveType x => [x,m,e] STRINGP x => - x ^= '"failed" and (member('(Symbol), $localImportStack) or - member('(Symbol), $globalImportStack)) => markAt [x, '(String), e] + x ^= '"failed" and (member($Symbol, $localImportStack) or + member($Symbol, $globalImportStack)) => markAt [x, '(String), e] [x, x, e] [x,primitiveType x or return nil,e] convert(t,m) @@ -791,8 +791,8 @@ resolve(min, mout) == dout := markKillAll mout din=$NoValueMode or dout=$NoValueMode => $NoValueMode dout=$EmptyMode => din - STRINGP din and dout = '(Symbol) => dout ------> hack 8/14/94 - STRINGP dout and din = '(Symbol) => din ------> hack 8/14/94 + STRINGP din and dout = $Symbol => dout ------> hack 8/14/94 + STRINGP dout and din = $Symbol => din ------> hack 8/14/94 din^=dout and (STRINGP din or STRINGP dout) => modeEqual(dout,$String) => dout modeEqual(din,$String) => nil |