Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed types from bottom expressions

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@51245 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
waldemar%netscape.com
1999-10-20 02:27:53 +00:00
parent ed5c56be64
commit e9e8df96c5
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
mozilla/js/semantics/Test/BaseExample.lisp
View File

@@ -17,14 +17,14 @@
(decimal-value (value :digit))
((base-value (base integer))
(let ((d integer (value :digit)))
(if (< d base) d (bottom integer)))))
(if (< d base) d (bottom)))))
(production :digits (:digits :digit) digits-rest
(decimal-value (+ (* 10 (decimal-value :digits)) (value :digit)))
((base-value (base integer))
(let ((d integer (value :digit)))
(if (< d base)
(+ (* base ((base-value :digits) base)) d)
(bottom integer))))))
(bottom))))))
(rule :numeral ((value integer))
(production :numeral (:digits) numeral-digits
@@ -34,7 +34,7 @@
(let ((base integer (decimal-value :digits 2)))
(if (and (>= base 2) (<= base 10))
((base-value :digits 1) base)
(bottom integer))))))
(bottom))))))
(%print-actions)
)))

6
mozilla/js2/semantics/Test/BaseExample.lisp
View File

@@ -17,14 +17,14 @@
(decimal-value (value :digit))
((base-value (base integer))
(let ((d integer (value :digit)))
(if (< d base) d (bottom integer)))))
(if (< d base) d (bottom)))))
(production :digits (:digits :digit) digits-rest
(decimal-value (+ (* 10 (decimal-value :digits)) (value :digit)))
((base-value (base integer))
(let ((d integer (value :digit)))
(if (< d base)
(+ (* base ((base-value :digits) base)) d)
(bottom integer))))))
(bottom))))))
(rule :numeral ((value integer))
(production :numeral (:digits) numeral-digits
@@ -34,7 +34,7 @@
(let ((base integer (decimal-value :digits 2)))
(if (and (>= base 2) (<= base 10))
((base-value :digits 1) base)
(bottom integer))))))
(bottom))))))
(%print-actions)
)))