From e9e8df96c5db67410a2c159b9e963904e436374b Mon Sep 17 00:00:00 2001 From: "waldemar%netscape.com" Date: Wed, 20 Oct 1999 02:27:53 +0000 Subject: [PATCH] Removed types from bottom expressions git-svn-id: svn://10.0.0.236/trunk@51245 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/js/semantics/Test/BaseExample.lisp | 6 +++--- mozilla/js2/semantics/Test/BaseExample.lisp | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/mozilla/js/semantics/Test/BaseExample.lisp b/mozilla/js/semantics/Test/BaseExample.lisp index 44516bc48a5..61d3081d858 100644 --- a/mozilla/js/semantics/Test/BaseExample.lisp +++ b/mozilla/js/semantics/Test/BaseExample.lisp @@ -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) ))) diff --git a/mozilla/js2/semantics/Test/BaseExample.lisp b/mozilla/js2/semantics/Test/BaseExample.lisp index 44516bc48a5..61d3081d858 100644 --- a/mozilla/js2/semantics/Test/BaseExample.lisp +++ b/mozilla/js2/semantics/Test/BaseExample.lisp @@ -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) )))