aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2018-02-01 06:04:27 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2018-02-01 06:04:27 -0800
commitd113f3f7ba119fecd9d946bced8d3dfe9456b933 (patch)
tree2884185a3966718504cf6a14ddd4da42364604af
parent7dfe7a715b7baad376fe10f475fc4414ad235572 (diff)
downloadopen-axiom-d113f3f7ba119fecd9d946bced8d3dfe9456b933.tar.gz
Fix thinko
Existing code did not supply the domain to export from, hence supplying one fewer argument to `genImportDeclaration`. Issue discovered by build with CLISP.
-rw-r--r--src/interp/compiler.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index d14a7247..b64c843c 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -1546,7 +1546,7 @@ checkExternalEntity(id,type,lang,e) ==
type' isnt [=bootDenotation "%Mapping",:.] =>
stackAndThrow('"Signature for external entity must be a Mapping type",nil)
id' := encodeLocalFunctionName id
- [def] := genImportDeclaration(id',[bootDenotation "%Signature",id,type'])
+ [def] := genImportDeclaration(id',[bootDenotation "%Signature",id,type'], ["Foreign", lang])
apply($backend,[def])
id'