diff options
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r-- | src/interp/i-eval.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot index 8b10a9ac..c6fafef5 100644 --- a/src/interp/i-eval.boot +++ b/src/interp/i-eval.boot @@ -59,7 +59,7 @@ mkEvalable form == constructor? op and argl = nil => form loadIfNecessary op kind:= getConstructorKindFromDB op - cosig := getDualSignatureFromDB op => + cosig := getDualSignature op => [op,:[val for x in argl for typeFlag in rest cosig]] where val() == typeFlag => kind = "category" => MKQ x |