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/wi1.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/wi1.boot')
-rw-r--r-- | src/interp/wi1.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index b644eb2a..1d987854 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -1213,7 +1213,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e, if $extraParms then formals:=actuals:=nil for u in $extraParms repeat - formals:=[CAR u,:formals] + formals:=[first u,:formals] actuals:=[MKQ rest u,:actuals] body := ['sublisV,['PAIR,['QUOTE,formals],['LIST,:actuals]],body] if argl then body:= -- always subst for args after extraparms |