Changeset 39708 in project

Timestamp:

03/14/21 21:03:12 (6 weeks ago)

Author:

Kon Lovett

Message:

primitives removal

File:

• release/5/mailbox/trunk/inline-type-checks.scm (modified) (6 diffs)

release/5/mailbox/trunk/inline-type-checks.scm

@@ -13 +13 @@
 
 ;just in case older inlines
-(define-inline (%natural? n) (%<= 0 n))
-(define-inline (%fxnatural? fx) (%fx<= 0 fx))
+(define-inline (natural? n) (<= 0 n))
+(define-inline (fxnatural? fx) (fx<= 0 fx))
 
 (cond-expand
@@ -42 +42 @@
 
     (define-inline (%alist? obj)
-      (or (%null? obj)
-          (and (%pair? obj) (%list-every/1 (lambda (x) (%pair? x)) obj))) )
+      (or (null? obj)
+          (and (pair? obj) (%list-every/1 (lambda (x) (pair? x)) obj))) )
 
     ;;
@@ -67 +67 @@
 
     (define-inline (%check-positive-fixnum loc obj . args)
-      (unless (and (%fixnum? obj) (%fxpositive? obj))
+      (unless (and (fixnum? obj) (fxpositive? obj))
         (error-positive-fixnum loc obj (optional args)))
       obj )
 
     (define-inline (%check-natural-fixnum loc obj . args)
-      (unless (and (%fixnum? obj) (%fxnatural? obj))
+      (unless (and (fixnum? obj) (fxnatural? obj))
         (error-natural-fixnum loc obj (optional args)))
       obj )
@@ -79 +79 @@
 
     (define-inline (%check-positive-integer loc obj . args)
-      (unless (and (%integer? obj) (%positive? obj))
+      (unless (and (integer? obj) (positive? obj))
         (error-positive-integer loc obj (optional args)))
       obj )
 
     (define-inline (%check-natural-integer loc obj . args)
-      (unless (and (%integer? obj) (%natural? obj))
+      (unless (and (integer? obj) (natural? obj))
         (error-natural-integer loc obj (optional args)))
       obj )
@@ -91 +91 @@
 
     (define-inline (%check-positive-number loc obj . args)
-      (unless (and (%number? obj) (%positive? obj))
+      (unless (and (number? obj) (positive? obj))
         (error-positive-number loc obj (optional args)))
       obj )
 
     (define-inline (%check-natural-number loc obj . args)
-      (unless (and (%number? obj) (%natural? obj))
+      (unless (and (number? obj) (natural? obj))
         (error-natural-number loc obj (optional args)))
       obj )
@@ -110 +110 @@
 
     (define-inline (%check-minimum-argument-count loc argc minargc)
-      (unless (%fx<= minargc argc)
+      (unless (fx<= minargc argc)
         (error-minimum-argument-count loc argc minargc))
       argc )
 
     (define-inline (%check-argument-count loc argc maxargc)
-      (unless (%fx<= argc maxargc)
+      (unless (fx<= argc maxargc)
         (error-argument-count loc argc maxargc))
       argc ) ) )