diff options
author | dos-reis <gdr@axiomatics.org> | 2009-09-29 05:59:06 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-09-29 05:59:06 +0000 |
commit | d6d284af63e89085e704e27c2f8c893c0ebc2e1a (patch) | |
tree | aa3680ecbd0f5965a6aba6981bdb097af5ed9816 /src/interp/termrw.boot | |
parent | e8f38c351d90d6dea371a9ac15d2c4906bff9910 (diff) | |
download | open-axiom-d6d284af63e89085e704e27c2f8c893c0ebc2e1a.tar.gz |
* interp/i-funsel.boot (matchMmSig): Fix thinko from revision 1297.
Diffstat (limited to 'src/interp/termrw.boot')
-rw-r--r-- | src/interp/termrw.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/termrw.boot b/src/interp/termrw.boot index 7d018dc5..4fd3b1f9 100644 --- a/src/interp/termrw.boot +++ b/src/interp/termrw.boot @@ -56,7 +56,7 @@ term1RW(t,R) == -- tries to reduce t at the top node [vars,:varRules]:= R for r in varRules until not (SL='failed) repeat - SL:= termMatch(CAR r,t,NIL,vars) + SL:= termMatch(first r,t,NIL,vars) not (SL='failed) => t:= subCopy(copy rest r,SL) t |