Update primdata.ss

gus-massa · Jan 7, 2024 · 9eaf47d · 9eaf47d
1 parent e46d513
commit 9eaf47d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/s/primdata.ss b/s/primdata.ss
@@ -215,7 +215,7 @@
   (* [sig [(number ...) -> (number)]] [flags arith-op partial-folder safeongoodargs ieee r5rs])
   (- [sig [(number number ...) -> (number)]] [flags arith-op partial-folder safeongoodargs ieee r5rs])
   (/ [sig [(number number ...) -> (number)]] [flags arith-op partial-folder ieee r5rs])
-  (abs [sig [(real) -> (real)]] [flags arith-op mifoldable discard safeongoodargs ieee r5rs])
+  (abs [sig [(real) -> (real)]] [flags arith-op mifoldable discard safeongoodargs ieee r5rs cptypes2])
   (div-and-mod [sig [(real real) -> (real real)]] [flags mifoldable+ discard])
   (div [sig [(real real) -> (real)]] [flags arith-op mifoldable discard])
   (mod [sig [(real real) -> (real)]] [flags arith-op mifoldable discard])
@@ -1143,7 +1143,7 @@
   (1- [sig [(number) -> (number)]] [flags arith-op mifoldable discard safeongoodargs])
   (abort [sig [() (ptr) -> (bottom)]] [flags abort-op])
   (acosh [sig [(number) -> (number)]] [flags arith-op mifoldable discard])
-  (add1 [sig [(number) -> (number)]] [flags arith-op mifoldable discard safeongoodargs])
+  (add1 [sig [(number) -> (number)]] [flags arith-op mifoldable discard safeongoodargs cptypes2])
   (andmap [sig [(procedure list list ...) -> (ptr ...)]] [flags cp03])
   (annotation? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
   (annotation-expression [sig [(annotation) -> (ptr)]] [flags pure mifoldable discard])
@@ -1775,7 +1775,7 @@
   (string-grapheme-span [sig [(string sub-index) -> (uptr)] [(string sub-index sub-index) -> (uptr)]] [flags true])
   (string-truncate! [sig [(string length) -> (string)]] [flags true])
   (strip-fasl-file [sig [(pathname pathname fasl-strip-options) -> (void)]] [flags true])
-  (sub1 [sig [(number) -> (number)]] [flags arith-op mifoldable discard safeongoodargs])
+  (sub1 [sig [(number) -> (number)]] [flags arith-op mifoldable discard safeongoodargs cptypes2])
   (subst [sig [(ptr ptr ptr) -> (ptr)]] [flags discard])
   (subst! [sig [(ptr ptr ptr) -> (ptr)]] [flags])
   (substq [sig [(ptr ptr ptr) -> (ptr)]] [flags discard])