diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-26 20:44:29 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-26 20:44:29 +0000 |
| commit | 8a5fd55bbfb440f3b4d787c345782b546dd96a6b (patch) | |
| tree | b2292406db60c47812c0ca6bb93a4cb7ef7912e5 /src/interp/i-spec1.boot | |
| parent | 908960a455e09bf5440ab87ed288efc989f8b29e (diff) | |
| download | open-axiom-8a5fd55bbfb440f3b4d787c345782b546dd96a6b.tar.gz | |
Use %veclit forms
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 1a210e38..e7ea5044 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) => ["CONS", :argCode, '()] - (len = 2) => ["CONS",:argCode] - ['VECTOR,:argCode] + (len = 1) => ['%listlit,:argCode] + (len = 2) => ['%makepair,:argCode] + ['%veclit,:argCode] putValue(op,object(code,tar)) putModeSet(op,[tar]) |