Fix bug in sfloat+ and add tests.

2022-04-20 18:52:10 -07:00
parent 12f80aec2b
commit 54d745e798
2 changed files with 13 additions and 1 deletions
--- a/common/floats.h
+++ b/common/floats.h
@ -45,7 +45,7 @@
  XV(internals, "F>NUMBER?", FCONVERT, tos = fconvert((const char *) *sp, tos, fp); --sp) \
  Y(SFLOAT, DUP; tos = sizeof(float)) \
  Y(SFLOATS, tos *= sizeof(float)) \
-  X("SFLOAT+", SFLOATPLUS, DUP; tos += sizeof(float)) \
+  X("SFLOAT+", SFLOATPLUS, tos += sizeof(float)) \
  X("PI", PI_CONST, *++fp = 3.14159265359f) \
  Y(FSIN, *fp = sin(*fp)) \
  Y(FCOS, *fp = cos(*fp)) \