@@ -111,7 +111,7 @@ pack_int(N) when N >= -16#8000000000000000 ->
111111 << 16#D3 :8 , N :64 /big -signed -integer -unit :1 >>;
112112% % too big int
113113pack_int (N ) ->
114- { error , { badarg , N }} .
114+ throw ({ badarg , N }) .
115115
116116
117117-spec pack_uint (non_neg_integer ()) -> binary ().
@@ -132,7 +132,7 @@ pack_uint(N) when (N band 16#FFFFFFFFFFFFFFFF) =:= N ->
132132 << 16#CF :8 , N :64 /big -unsigned -integer -unit :1 >>;
133133% % too big unit
134134pack_uint (N ) ->
135- { error , { badarg , N }} .
135+ throw ({ badarg , N }) .
136136
137137
138138-spec pack_double (float ()) -> binary ().
@@ -155,7 +155,7 @@ pack_raw(Bin) ->
155155 Len when Len < 16#100000000 ->
156156 << 16#DB :8 , Len :32 /big -unsigned -integer -unit :1 , Bin /binary >>;
157157 _ ->
158- { error , { badarg , Bin }}
158+ throw ({ badarg , Bin })
159159 end .
160160
161161-spec pack_raw2 (binary ()) -> binary ().
@@ -169,7 +169,7 @@ pack_raw2(Bin) ->
169169 Len when Len < 16#100000000 ->
170170 << 16#C6 :8 , Len :32 /big -unsigned -integer -unit :1 , Bin /binary >>;
171171 _ ->
172- { error , { badarg , Bin }}
172+ throw ({ badarg , Bin })
173173 end .
174174
175175% % @doc String MAY be unicode. Or may be EUC-JP, SJIS, UTF-1024 or anything.
@@ -191,7 +191,7 @@ pack_string(String, _Opt) ->
191191 Len when Len < 16#100000000 ->
192192 << 16#DB :8 , Len :32 /big -unsigned -integer -unit :1 , Bin /binary >>;
193193 _ ->
194- { error , { badarg , String }}
194+ throw ({ badarg , String })
195195 end
196196 end .
197197
@@ -284,7 +284,7 @@ pack_array(L, Opt) ->
284284 Len when Len < 16#100000000 ->
285285 <<16#DD :8 , Len :32 /big -unsigned -integer -unit :1 , (<< <<(pack (E , Opt ))/binary >> || E <- L >>)/binary >>;
286286 _ ->
287- { error , { badarg , L }}
287+ throw ({ badarg , L })
288288 end .
289289
290290-spec pack_map (msgpack :msgpack_map (), msgpack_option ()) -> binary () | no_return ().
@@ -322,7 +322,7 @@ pack_map(M, Opt)->
322322 <<16#DF :8 , Len :32 /big -unsigned -integer -unit :1 ,
323323 (<< <<(pack (K , Opt ))/binary , (pack (V , Opt ))/binary >> || {K , V } <- M >>)/binary >>;
324324 _ ->
325- { error , { badarg , M }}
325+ throw ({ badarg , M })
326326 end .
327327
328328-spec pack_ext (any (), msgpack_ext_packer (), msgpack :options ()) -> {ok , binary ()} | {error , any ()}.
0 commit comments