diff options
author | dos-reis <gdr@axiomatics.org> | 2008-12-12 20:11:30 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-12-12 20:11:30 +0000 |
commit | a1e1873a557b7c44dc6593618eb9fae8849347d0 (patch) | |
tree | 8d4b09e187af6560404acd0eb9dbc89c694d0d50 /src/interp/wi1.boot | |
parent | a6488569ce5377da9a5647ec06b698cc0a42c8c1 (diff) | |
download | open-axiom-a1e1873a557b7c44dc6593618eb9fae8849347d0.tar.gz |
r12451@gauss: gdr | 2008-12-12 08:39:20 -0600
Tidy.
Diffstat (limited to 'src/interp/wi1.boot')
-rw-r--r-- | src/interp/wi1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index eab2d59d..f149f1b2 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -368,7 +368,7 @@ compSymbol(s,m,e) == [s,v.mode,e] --s will be replaced by an ELT form in beforeCompile [s,v.mode,e] --s has been SETQd m':= getmode(s,e) => - if not member(s,$formalArgList) and not MEMQ(s,$FormalMapVariableList) and + if not MEMQ(s,$formalArgList) and not MEMQ(s,$FormalMapVariableList) and not isFunction(s,e) and null ($compForModeIfTrue=true) then errorRef s [s,m',e] --s is a declared argument MEMQ(s,$FormalMapVariableList) => stackMessage ["no mode found for",s] |