diff options
Diffstat (limited to 'src/interp/i-spec1.boot')
-rw-r--r-- | src/interp/i-spec1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index d72fb7f1..371d2fc2 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -1185,11 +1185,11 @@ replaceSharps(x,d) == -- all replaces the triangle variables SL:= NIL for e in rest d for var in $FormalMapVariableList repeat - SL:= CONS(CONS(var,e),SL) + SL:= [[var,:e],:SL] x := subCopy(x,SL) SL:= NIL for e in rest d for var in $TriangleVariableList repeat - SL:= CONS(CONS(var,e),SL) + SL:= [[var,:e],:SL] subCopy(x,SL) isDomainValuedVariable form == |