aboutsummaryrefslogtreecommitdiff
path: root/src/interp/interop.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r--src/interp/interop.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot
index 4c5b62ee..0d076bfa 100644
--- a/src/interp/interop.boot
+++ b/src/interp/interop.boot
@@ -63,7 +63,7 @@ DNameOtherID := 3
DNameToSExpr1 dname ==
null dname => error "unexpected domain name"
first dname = DNameStringID =>
- INTERN(CompStrToString rest dname)
+ makeSymbol(CompStrToString rest dname)
name0 := DNameToSExpr1 second dname
args := rest rest dname
name0 = '_-_> =>