diff options
author | dos-reis <gdr@axiomatics.org> | 2013-07-02 02:36:13 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-07-02 02:36:13 +0000 |
commit | 75562692f6375a5ce067997d494a3238eb77f6d5 (patch) | |
tree | 49bfa85b80e2b9d2b9a33dd6c99de245f0f96330 /src/interp/i-map.boot | |
parent | cb90da3427de1c9113fdf285ba6ba3a9d307fb6f (diff) | |
download | open-axiom-75562692f6375a5ce067997d494a3238eb77f6d5.tar.gz |
Rever sharp var list changes.
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 89eefa93..ba4e1277 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -302,7 +302,7 @@ makePattern(args,pred) == pred is ["=","#1",n] => n addPatternPred("#1",pred) u:= canMakeTuple(nargs,pred) => u - addPatternPred(["tuple",:formalVarList nargs],pred) + addPatternPred(["tuple",:take(nargs,$FormalMapVariableList)],pred) addPatternPred(arg,pred) == pred=true => arg |