aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-eval.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r--src/interp/i-eval.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot
index 7485401e..1432aa8e 100644
--- a/src/interp/i-eval.boot
+++ b/src/interp/i-eval.boot
@@ -60,7 +60,7 @@ mkEvalable form ==
loadIfNecessary op
kind:= getConstructorKindFromDB op
cosig := getDualSignature op =>
- [op,:[val for x in argl for typeFlag in rest cosig]] where val() ==
+ [op,:[val for x in argl for typeFlag in cosig.source]] where val() ==
typeFlag =>
kind = "category" => MKQ x
vector? x => MKQ x