diff options
Diffstat (limited to 'src/interp/i-spec1.boot')
| -rw-r--r-- | src/interp/i-spec1.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot index 3c692e3d..eacd23d3 100644 --- a/src/interp/i-spec1.boot +++ b/src/interp/i-spec1.boot @@ -1084,9 +1084,9 @@ upRecordConstruct(op,l,tar) == for arg in l for ['_:,.,type] in types] len := #l code := - (len = 1) => ['%listlit,:argCode] - (len = 2) => ['%makepair,:argCode] - ['%veclit,:argCode] + (len = 1) => ['%list,:argCode] + (len = 2) => ['%pair,:argCode] + ['%vector,:argCode] putValue(op,object(code,tar)) putModeSet(op,[tar]) |