From 879b9de5aaa0c3e717e3799c35af483816bac0da Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 9 Jun 2009 19:30:17 +0000 Subject: * interp/i-coerfn.boot (Expr2Up): Fix regression introduced by name$Kernel removal. --- src/ChangeLog | 5 +++++ src/interp/i-coerfn.boot | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 0d54fe8f..976a40ee 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-06-09 Gabriel Dos Reis + + * interp/i-coerfn.boot (Expr2Up): Fix regression introduced by + name$Kernel removal. + 2009-06-09 Gabriel Dos Reis * interp/compiler.boot (compLogicalNot): Tidy. diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot index fa8eaeb6..1dd78d14 100644 --- a/src/interp/i-coerfn.boot +++ b/src/interp/i-coerfn.boot @@ -431,9 +431,12 @@ Expr2Up(u,source is [Expr,S], target is [.,var,T]) == u = '_$fromCoerceable_$ => canCoerce(source, T) kernelFunc := getFunctionFromDomain("kernels", source, [source]) kernelDom := ['Kernel, source] - nameFunc := getFunctionFromDomain("name", kernelDom, [kernelDom]) + operatorFunc := getFunctionFromDomain("operator",kernelDom,[kernelDom]) + bopDom := ["BasicOperator"] + nameFunc := getFunctionFromDomain("name", bopDom, [bopDom]) kernels := SPADCALL(u,kernelFunc) - v1 := [SPADCALL(kernel, nameFunc) for kernel in kernels] + v1 := [SPADCALL(SPADCALL(kernel, operatorFunc),nameFunc) + for kernel in kernels] not member(var, v1) => coercionFailure() -- cgit v1.2.3