aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index 5ccaaa26..89173ac0 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -1113,7 +1113,7 @@ proclaimCapsuleFunction(op,sig) ==
-- We want accurate approximation for subdomains/superdomains
-- that are specialized and known to the VM.
(m := getVMType normalize $functorForm) = "%Thing" =>
- getVMType normalize $
+ getVMType normalize "$"
m
getVMType normalize d
normalize(d,top? == true) ==