Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-11-30 00:01:50 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Renamed != to /= and lambda to function.

Browse Source
This commit is contained in:
waldemar%netscape.com 1999-05-17 05:10:41 +00:00
parent f019c1d787
commit 837f29ca05
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
js/semantics/JSECMA/Parser.lisp
View File

@ -121,7 +121,7 @@
(((undefined-value null-value)) false)
((boolean-value b boolean) b)
((double-value d double) (not (or (double-is-zero d) (double-is-nan d))))
((string-value s string) (!= (length s) 0))
((string-value s string) (/= (length s) 0))
(object-value true)))
(define (coerce-boolean-to-double (b boolean)) double
@ -772,7 +772,7 @@
(%print-actions)
(define (binary-double-compound-operator (operator (-> (double double) double))) (-> (value value) value-or-exception)
(lambda ((left-value value) (right-value value))
(function ((left-value value) (right-value value))
(letexc (left-number double (coerce-to-double left-value))
(letexc (right-number double (coerce-to-double right-value))
(oneof normal (oneof double-value (operator left-number right-number)))))))

4
js2/semantics/JSECMA/Parser.lisp
View File

@ -121,7 +121,7 @@
(((undefined-value null-value)) false)
((boolean-value b boolean) b)
((double-value d double) (not (or (double-is-zero d) (double-is-nan d))))
((string-value s string) (!= (length s) 0))
((string-value s string) (/= (length s) 0))
(object-value true)))
(define (coerce-boolean-to-double (b boolean)) double
@ -772,7 +772,7 @@
(%print-actions)
(define (binary-double-compound-operator (operator (-> (double double) double))) (-> (value value) value-or-exception)
(lambda ((left-value value) (right-value value))
(function ((left-value value) (right-value value))
(letexc (left-number double (coerce-to-double left-value))
(letexc (right-number double (coerce-to-double right-value))
(oneof normal (oneof double-value (operator left-number right-number)))))))