From 4ac600edddd39335715c053ded118a59c804778d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 2 Aug 2008 13:03:26 +0000 Subject: * interp/buildom.boot: Use constants by names. * interp/i-analy.boot: Likewise. * interp/i-coerfn.boot: Likewise. * interp/i-funsel.boot: Likewise. * interp/i-intern.boot: Likewise. * interp/i-resolv.boot: Likewise. * interp/i-spec1.boot: Likewise. * interp/mark.boot: Likewise. * interp/nrungo.boot: Likewise. * interp/postpar.boot: Likewise. * interp/wi1.boot: Likewise. --- src/interp/i-spec1.boot | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/interp/i-spec1.boot') diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index 3679d1be..c0ab9bc5 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -423,8 +423,8 @@ evalCOERCE(op,tree,m) == t2 := if isPartialMode m then - $genValue and (t1 = '(Symbol)) and containsPolynomial m => - resolveTM(['UnivariatePolynomial,objValUnwrap(v),'(Integer)],m) + $genValue and (t1 = $Symbol) and containsPolynomial m => + resolveTM(['UnivariatePolynomial,objValUnwrap(v),$Integer],m) resolveTM(t1,m) else m null t2 => throwKeyedMsgCannotCoerceWithValue(e,t1,m) -- cgit v1.2.3