Editorial: Fold ToPartialTime into ToTemporalTimeRecord

Author: gibson042

spec/plaintime.html

@@ -239,7 +239,7 @@ <h1>Temporal.PlainTime.prototype.with ( _temporalTimeLike_ [ , _options_ ] )</h1
         1. If Type(_temporalTimeLike_) is not Object, then
           1. Throw a *TypeError* exception.
         1. Perform ? RejectObjectWithCalendarOrTimeZone(_temporalTimeLike_).
-        1. Let _partialTime_ be ? ToPartialTime(_temporalTimeLike_).
+        1. Let _partialTime_ be ? ToTemporalTimeRecord(_temporalTimeLike_, ~partial~).
         1. Set _options_ to ? GetOptionsObject(_options_).
         1. Let _overflow_ be ? ToTemporalOverflow(_options_).
         1. If _partialTime_.[[Hour]] is not *undefined*, then
@@ -621,75 +621,6 @@ <h1>ToTemporalTime ( _item_ [ , _overflow_ ] )</h1>
       </emu-alg>
     </emu-clause>
 
-    <emu-clause id="sec-temporal-topartialtime" aoid="ToPartialTime">
-      <h1>ToPartialTime ( _temporalTimeLike_ )</h1>
-      <emu-alg>
-        1. Assert: Type(_temporalTimeLike_) is Object.
-        1. Let _result_ be the Record {
-          [[Hour]]: *undefined*,
-          [[Minute]]: *undefined*,
-          [[Second]]: *undefined*,
-          [[Millisecond]]: *undefined*,
-          [[Microsecond]]: *undefined*,
-          [[Nanosecond]]: *undefined*
-          }.
-        1. Let _any_ be *false*.
-        1. For each row of <emu-xref href="#table-temporal-temporaltimelike-properties"></emu-xref>, except the header row, in table order, do
-          1. Let _property_ be the Property value of the current row.
-          1. Let _value_ be ? Get(_temporalTimeLike_, _property_).
-          1. If _value_ is not *undefined*, then
-            1. Set _any_ to *true*.
-            1. Set _value_ to ? ToIntegerThrowOnInfinity(_value_).
-            1. Set _result_'s internal slot whose name is the Internal Slot value of the current row to _value_.
-        1. If _any_ is *false*, then
-          1. Throw a *TypeError* exception.
-        1. Return _result_.
-      </emu-alg>
-
-      <emu-table id="table-temporal-temporaltimelike-properties">
-        <emu-caption>Properties of a TemporalTimeLike</emu-caption>
-        <table class="real-table">
-          <thead>
-            <tr>
-              <th>Internal Slot</th>
-              <th>Property</th>
-            </tr>
-          </thead>
-          <tbody>
-            <tr>
-              <td>[[Hour]]</td>
-              <td>*"hour"*</td>
-            </tr>
-
-            <tr>
-              <td>[[Microsecond]]</td>
-              <td>*"microsecond"*</td>
-            </tr>
-
-            <tr>
-              <td>[[Millisecond]]</td>
-              <td>*"millisecond"*</td>
-            </tr>
-
-            <tr>
-              <td>[[Minute]]</td>
-              <td>*"minute"*</td>
-            </tr>
-
-            <tr>
-              <td>[[Nanosecond]]</td>
-              <td>*"nanosecond"*</td>
-            </tr>
-
-            <tr>
-              <td>[[Second]]</td>
-              <td>*"second"*</td>
-            </tr>
-          </tbody>
-        </table>
-      </emu-table>
-    </emu-clause>
-
     <emu-clause id="sec-temporal-regulatetime" aoid="RegulateTime">
       <h1>RegulateTime ( _hour_, _minute_, _second_, _millisecond_, _microsecond_, _nanosecond_, _overflow_ )</h1>
       <emu-alg>
@@ -812,11 +743,17 @@ <h1>CreateTemporalTime ( _hour_, _minute_, _second_, _millisecond_, _microsecond
       </emu-alg>
     </emu-clause>
 
-    <emu-clause id="sec-temporal-totemporaltimerecord" aoid="ToTemporalTimeRecord">
-      <h1>ToTemporalTimeRecord ( _temporalTimeLike_ )</h1>
-      <emu-note>The value of ! ToIntegerThrowOnInfinity(*undefined*) is 0.</emu-note>
+    <emu-clause id="sec-temporal-totemporaltimerecord" type="abstract operation">
+      <h1>
+        ToTemporalTimeRecord (
+          _temporalTimeLike_: an Object,
+          optional _completeness_: ~partial~ or ~complete~,
+        ): either a normal completion containing an Object, or an abrupt completion
+      </h1>
+      <dl class="header">
+      </dl>
       <emu-alg>
-        1. Assert: Type(_temporalTimeLike_) is Object.
+        1. If _completeness_ is not present, set _completeness_ to ~complete~.
         1. Let _result_ be the Record {
           [[Hour]]: *undefined*,
           [[Minute]]: *undefined*,
@@ -829,14 +766,57 @@ <h1>ToTemporalTimeRecord ( _temporalTimeLike_ )</h1>
         1. For each row of <emu-xref href="#table-temporal-temporaltimelike-properties"></emu-xref>, except the header row, in table order, do
           1. Let _property_ be the Property value of the current row.
           1. Let _value_ be ? Get(_temporalTimeLike_, _property_).
-          1. If _value_ is not *undefined*, then
-            1. Set _any_ to *true*.
-          1. Set _value_ to ? ToIntegerThrowOnInfinity(_value_).
-          1. Set _result_'s internal slot whose name is the Internal Slot value of the current row to _value_.
+          1. If _value_ is not *undefined*, set _any_ to *true*.
+          1. If _value_ is not *undefined* or _completeness_ is ~complete~, then
+            1. Set _value_ to ? ToIntegerThrowOnInfinity(_value_).
+            1. Set _result_'s internal slot whose name is the Internal Slot value of the current row to _value_.
         1. If _any_ is *false*, then
           1. Throw a *TypeError* exception.
         1. Return _result_.
       </emu-alg>
+
+      <emu-table id="table-temporal-temporaltimelike-properties">
+        <emu-caption>Properties of a TemporalTimeLike</emu-caption>
+        <table class="real-table">
+          <thead>
+            <tr>
+              <th>Internal Slot</th>
+              <th>Property</th>
+            </tr>
+          </thead>
+          <tbody>
+            <tr>
+              <td>[[Hour]]</td>
+              <td>*"hour"*</td>
+            </tr>
+
+            <tr>
+              <td>[[Microsecond]]</td>
+              <td>*"microsecond"*</td>
+            </tr>
+
+            <tr>
+              <td>[[Millisecond]]</td>
+              <td>*"millisecond"*</td>
+            </tr>
+
+            <tr>
+              <td>[[Minute]]</td>
+              <td>*"minute"*</td>
+            </tr>
+
+            <tr>
+              <td>[[Nanosecond]]</td>
+              <td>*"nanosecond"*</td>
+            </tr>
+
+            <tr>
+              <td>[[Second]]</td>
+              <td>*"second"*</td>
+            </tr>
+          </tbody>
+        </table>
+      </emu-table>
     </emu-clause>
 
     <emu-clause id="sec-temporal-temporaltimetostring" aoid="TemporalTimeToString">