diff options
Diffstat (limited to 'wttree.scm')
| -rw-r--r-- | wttree.scm | 24 |
1 files changed, 15 insertions, 9 deletions
@@ -56,14 +56,6 @@ ;; ;; It has been tested on MIT-Scheme, scheme48 and scm4e1 ;; -;; Non-standard procedures: -;; error -;; error:wrong-type-argument -;; error:band-range-argument -;; These are only called when there is an error so it is not critical to -;; have them defined :-) -;; -;; ;; If your system has a compiler and you want this code to run fast, you ;; should do whatever is necessary to inline all of the structure accessors. ;; @@ -71,6 +63,20 @@ ;; ;;(declare (usual-integrations)) +(define error + (case (scheme-implementation-type) + ((MITScheme) error) + (else slib:error))) +(define error:wrong-type-argument + (case (scheme-implementation-type) + ((MITScheme) error:wrong-type-argument) + (else (lambda (arg1 arg2 arg3) + (slib:error 'wrong-type-argument arg1 arg2 arg3))))) +(define error:bad-range-argument + (case (scheme-implementation-type) + ((MITScheme) error:bad-range-argument) + (else (lambda (arg1 arg2) + (slib:error 'bad-range-argument arg1 arg2))))) ;;; ;;; Interface to this package. @@ -127,7 +133,7 @@ (define fix:+ +) (define fix:- -) (define fix:< <) - (define fix:<= <) + (define fix:<= <=) (define fix:> >) (define fix:* *) |