Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-02-23 10:54:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added truncate-finite-float64 and compare

Browse Source
This commit is contained in:
waldemar%netscape.com 2001-08-10 23:27:43 +00:00
parent a016f1f7ac
commit 717626b7d7
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
js2/semantics/Test/StandardFunction.lisp
View File

@ -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)))