From 9623b4db02612db5c7e9ac8a573bde7f92928b17 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 24 Nov 2007 20:02:22 +0000 Subject: * nrungo.boot (lazyCompareSigEqual): If template slot is "$" then compare with reified dollar. --- src/interp/ChangeLog | 5 +++++ src/interp/nrungo.boot | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index ff4d153d..69160e62 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,8 @@ +2007-11-24 Gabriel Dos Reis + + * nrungo.boot (lazyCompareSigEqual): If template slot is "$" then + compare with reified dollar. + 2007-11-23 Gabriel Dos Reis * Makefile.pamphlet (cfuns.$(FASLEXT)): New rule. diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot index 229ad785..16470b1e 100644 --- a/src/interp/nrungo.boot +++ b/src/interp/nrungo.boot @@ -245,7 +245,7 @@ compareSig(sig,tableSig,dollar,domain) == for s in rest sig for t in rest tableSig] lazyCompareSigEqual(s,tslot,dollar,domain) == - tslot = '$ => s = tslot -- devaluate dollar --needed for browser + tslot = '$ => s = "$" or s = devaluate dollar INTEGERP tslot and PAIRP(lazyt:=domain.tslot) and PAIRP s => lazyt is [.,.,.,[.,item,.]] and item is [.,[functorName,:.]] and functorName = CAR s => -- cgit v1.2.3