From dd94fa69b0274aeec7682109771ef5d23e33e355 Mon Sep 17 00:00:00 2001 From: "waldemar%netscape.com" Date: Fri, 10 Aug 2001 23:27:43 +0000 Subject: [PATCH] Added truncate-finite-float64 and compare git-svn-id: svn://10.0.0.236/trunk@100844 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/js2/semantics/Test/StandardFunction.lisp | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/mozilla/js2/semantics/Test/StandardFunction.lisp b/mozilla/js2/semantics/Test/StandardFunction.lisp index 3f126856461..5865ef73d50 100644 --- a/mozilla/js2/semantics/Test/StandardFunction.lisp +++ b/mozilla/js2/semantics/Test/StandardFunction.lisp @@ -25,6 +25,19 @@ ((/= a 0) (return 78.0)) ((< x 0 rational) (return -zero)) (nil (return +zero)))) + + (define (x-truncate-finite-float64 (x finite-float64)) integer + (rwhen (:narrow-false (in (tag +zero -zero) x)) + (return 0)) + (if (> x 0 rational) + (return (floor x)) + (return (ceiling x)))) + + (define (compare (x rational) (y rational)) order + (cond + ((< x y rational) (return less)) + ((= x y rational) (return equal)) + (nil (return greater)))) ))) (defparameter *sfg* (world-grammar *sfw* 'standard-function-grammar)))