File tree Expand file tree Collapse file tree 2 files changed +4
-4
lines changed
Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -1339,13 +1339,13 @@ Addition. This operator also performs string and list concatenation.
13391339 atom a = vargs[0 ];
13401340 switch (a.type ) {
13411341 case T_STRING:
1342- *result = make_number (round ( atof ( a.as <std::string>().c_str () )));
1342+ *result = make_number (atol ( a.as <std::string>().c_str ()));
13431343 break ;
13441344 case T_SYM:
1345- *result = make_number (round ( atof ( a.as <std::string *>()->c_str () )));
1345+ *result = make_number (atol ( a.as <std::string *>()->c_str ()));
13461346 break ;
13471347 case T_NUM:
1348- *result = make_number (round (a.as <double >()));
1348+ *result = make_number (( long ) (a.as <double >()));
13491349 break ;
13501350 case T_CHAR:
13511351 *result = make_number (a.as <char >());
Original file line number Diff line number Diff line change 3434#endif
3535
3636namespace arc {
37- constexpr auto VERSION = " 0.20 " ;
37+ constexpr auto VERSION = " 0.21 " ;
3838
3939 enum type {
4040 T_NIL,
You can’t perform that action at this time.
0 commit comments