diff options
author | dos-reis <gdr@axiomatics.org> | 2009-01-04 12:50:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-01-04 12:50:32 +0000 |
commit | 151f227545f5afa179bd1d0c4b179aa0a83b82f5 (patch) | |
tree | 335122f4d0615cf6d8f298dfcf5becfa2030de0b /src/interp/g-cndata.boot | |
parent | ad0d6445de436a1c7c04cfe14316d620cb9202b3 (diff) | |
download | open-axiom-151f227545f5afa179bd1d0c4b179aa0a83b82f5.tar.gz |
* interp/buildom.boot (createEnum): Fix quoting.
* interp/compat.boot (system): Likewise.
* interp/astr.boot (ncEltQ): Fix declaration.
* interp/compiler.boot (compMapCond'): Likewise.
(compMapCond): Likewise.
(compMapCondFun): Remove declaration.
Diffstat (limited to 'src/interp/g-cndata.boot')
-rw-r--r-- | src/interp/g-cndata.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot index 58783619..b822d73a 100644 --- a/src/interp/g-cndata.boot +++ b/src/interp/g-cndata.boot @@ -126,8 +126,8 @@ installConstructor(cname,type) == constructorNameConflict(name,kind) == userError - ["The name",:bright name,"conflicts with the name of an existing rule", - "%l","please choose another ",kind] + ['"The name",:bright name,'"conflicts with the name of an existing rule", + "%l",'"please choose another ",kind] constructorAbbreviationErrorCheck(c,a,typ,errmess) == siz := SIZE (s := PNAME a) @@ -210,7 +210,7 @@ unabbrevSpecialForms(op,arglist,modeIfTrue) == unabbrevRecordComponent(a,modeIfTrue) == a is ["Declare",b,T] or a is [":",b,T] => [":",b,unabbrev1(T,modeIfTrue)] - userError "wrong format for Record type" + userError '"wrong format for Record type" unabbrevUnionComponent(a,modeIfTrue) == a is ["Declare",b,T] or a is [":",b,T] => |