diff options
| -rw-r--r-- | src/interp/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/nrungo.boot | 2 |
2 files changed, 6 insertions, 1 deletions
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 <gdr@cs.tamu.edu> + + * nrungo.boot (lazyCompareSigEqual): If template slot is "$" then + compare with reified dollar. + 2007-11-23 Gabriel Dos Reis <gdr@cs.tamu.edu> * 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 => |