mes: Move pair? to core.

* src/lib.c (pair_p): New function.  Gains 8% performance on MesCC.

mes/module/mes/boot-0.scm.in

@@ -42,7 +42,6 @@
 ;; end boot-00.scm
 
 ;; boot-01.scm
-(define (pair? x) (eq? (core:type x) <cell:pair>))
 (define (not x) (if x #f #t))
 
 (define (display x . rest)

mes/module/mes/boot-01.scm

@@ -32,7 +32,6 @@
 ;; end boot-00.scm
 
 ;; boot-01.scm
-(define (pair? x) (eq? (core:type x) <cell:pair>))
 (define (not x) (if x #f #t))
 
 (define (display x . rest)

mes/module/mes/boot-02.scm

@@ -42,7 +42,6 @@
 ;; end boot-00.scm
 
 ;; boot-01.scm
-(define (pair? x) (eq? (core:type x) <cell:pair>))
 (define (not x) (if x #f #t))
 
 (define (display x . rest)

mes/module/mes/type-0.mes

@@ -75,9 +75,6 @@
 (define (number? x)
   (eq? (core:type x) <cell:number>))
 
-(define (pair? x)
-  (eq? (core:type x) <cell:pair>))
-
 (define (port? x)
   (eq? (core:type x) <cell:port>))
 

scaffold/boot/37-closure-lambda.scm

@@ -16,9 +16,6 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(define (pair? x)
-  (eq? (core:type x) <cell:pair>))
-
 (define (atom? x)
   (if (pair? x) #f
       (if (null? x) #f

scaffold/boot/38-simple-format.scm

@@ -16,8 +16,6 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(define (pair? x) (eq? (core:type x) <cell:pair>))
-
 (define (not x) (if x #f #t))
 
 (define-macro (or . x)

scaffold/boot/4c-quasiquote.scm

@@ -16,7 +16,6 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(define (pair? x) (eq? (core:type x) <cell:pair>))
 (define (vector? x)
   (eq? (core:type x) <cell:vector>))
 
@@ -85,7 +84,7 @@
 ;;          ((lambda (a d)
 ;;             (core:display "  a=") (core:display a) (core:display "\n")
 ;;             (core:display "  d=") (core:display d)
-            
+
 ;;             (if (pair? d)
 ;;                 (if (eq? (car d) 'quote)
 ;;                     (if (and (pair? a) (eq? (car a) 'quote))
@@ -133,7 +132,7 @@
             (core:display "\n")
             (core:display "CDR d=") (core:display d)
             (core:display "\n")
-            
+
                  (if (pair? d)
                      (if (eq? (car d) 'quote)
                          (if (and (pair? a) (eq? (car a) 'quote))

scaffold/boot/60-let-syntax-expanded.scm

@@ -36,7 +36,6 @@
 (define <cell:pair> 7)
 (define <cell:string> 10)
 
-(define (pair? x) (eq? (core:type x) <cell:pair>))
 (define (not x) (if x #f #t))
 
 (define (display x . rest)

src/lib.c

@@ -348,3 +348,9 @@ last_pair (SCM x)
     x = CDR (x);
   return x;
 }
+
+SCM
+pair_p (SCM x)
+{
+  return TYPE (x) == TPAIR ? cell_t : cell_f;
+}