diff options
Diffstat (limited to 'src/interp/nrunfast.boot')
| -rw-r--r-- | src/interp/nrunfast.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index 0b9ea020..607884cf 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -610,7 +610,7 @@ resolveNiladicConstructors form == atom form => form form is ["QUOTE",:.] => form for args in tails rest form repeat - rplac(first args, resolveNiladicConstructors first args) + args.first := resolveNiladicConstructors first args form --======================================================= @@ -663,7 +663,7 @@ newHasTest(domform,catOrAtt) == sig := type is ["Mapping",:sig'] => for ts in tails sig' repeat - rplac(first ts, resolveNiladicConstructors first ts) + ts.first := resolveNiladicConstructors first ts sig' -- a constant; make it look like op: () -> type [resolveNiladicConstructors type] |