diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-14 17:11:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-14 17:11:52 +0000 |
| commit | 81c55a49db8873b2a67f3c7c8ffe3786731e81bd (patch) | |
| tree | c9dffc490885f663070849f1c8709b5d8943d97e /src/boot/ast.boot | |
| parent | 0df19c03c721d4ef214b335445a530dbfa66d570 (diff) | |
| download | open-axiom-81c55a49db8873b2a67f3c7c8ffe3786731e81bd.tar.gz | |
cleanup
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index b7b50c51..e59d290d 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -848,7 +848,7 @@ bfDef1 [op,args,body] == shoeLAM (op,args,control,body)== margs :=bfGenSymbol() - innerfunc:= makeSymbol strconc(symbolName op,",LAM") + innerfunc:= makeSymbol strconc(symbolName op,'",LAM") [[innerfunc,["LAMBDA",args,body]], [op,["MLAMBDA",["&REST",margs],["CONS",["QUOTE", innerfunc], ["WRAP",margs, ["QUOTE", control]]]]]] @@ -1696,7 +1696,7 @@ genCLOZUREnativeTranslation(op,s,t,op') == -- Note that Clozure CL does not mangle foreign function call for -- us, so we're left with more platform dependencies than needed. if %hasFeature KEYWORD::DARWIN then - op' := strconc("__",op') + op' := strconc('"__",op') call := [bfColonColon("CCL","EXTERNAL-CALL"), STRING op', :args, rettype] where args() == [:[x, parm] for x in argtypes for p in parms] |