; Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees. See file COPYING.


; Redefinitions of some usual Scheme things so as to make the new
; exception system kick in when it needs to.

(define (number? n)
  (or (true-scheme:number? n)
      (extended-number? n)))

;(define (integer? n)
;  (if (true-scheme:number? n)
;      (true-scheme:integer? n)
;      (and (extended-number? n)
;           ... raise exception ...)))

(define (+ x y) (true-scheme:+ x y))
(define (* x y) (true-scheme:* x y))
(define (- x y) (true-scheme:- x y))
(define (/ x y) (true-scheme:/ x y))
(define (= x y) (true-scheme:= x y))
(define (< x y) (true-scheme:< x y))
(define (make-vector x y) (true-scheme:make-vector x y))
(define (make-string x y) (true-scheme:make-string x y))
(define (apply x y) (true-scheme:apply x y))

(define (read-char x) (true-scheme:read-char x))
(define (peek-char x) (true-scheme:peek-char x))
(define (char-ready? x) (true-scheme:char-ready? x))
(define (write-char x y) (true-scheme:write-char x y))
