diff options
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index e4c71bf6..867c40c0 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -410,7 +410,7 @@ interactiveModemapForm mm == -- create modemap form for use by the interpreter. This function -- replaces all specific domains mentioned in the modemap with pattern -- variables, and predicates - mm := replaceVars(COPY mm,$PatternVariableList,$FormalMapVariableList) + mm := replaceVars(copyTree mm,$PatternVariableList,$FormalMapVariableList) [pattern := [dc,:sig],pred] := mm pred := [fn x for x in pred] where fn x == x is [a,b,c] and a isnt 'isFreeFunction and c isnt [.,:.] => [a,b,[c]] |