From d113f3f7ba119fecd9d946bced8d3dfe9456b933 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Thu, 1 Feb 2018 06:04:27 -0800
Subject: 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.
---
 src/interp/compiler.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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'
 
-- 
cgit v1.2.3