diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index e8ebb419..855cf50c 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -373,7 +373,7 @@ intersectionContour(c,c') == --this loop will return NIL if not satisfied addContour(c,E is [cur,:tail]) == - [NCONC(fn(c,E),cur),:tail] where + [append!(fn(c,E),cur),:tail] where fn(c,e) == for [x,:proplist] in c repeat fn1(x,proplist,getProplist(x,e)) where @@ -1477,7 +1477,7 @@ massageBackendCode x == x.first := "MAKEPROP-SAY" u in '(DCQ RELET PRELET SPADLET SETQ %LET) => if u isnt 'DCQ and u isnt 'SETQ then - nconc(x,$FUNNAME__TAIL) + append!(x,$FUNNAME__TAIL) x.first := "LETT" massageBackendCode CDDR x if not (u in '(SETQ RELET)) then |