Mike Gerwitz

Activist for User Freedom

aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMike Gerwitz <mtg@gnu.org>2018-09-10 20:41:18 -0400
committerMike Gerwitz <mtg@gnu.org>2018-09-10 20:41:18 -0400
commit0559d3a73bc2eadb7e965091e3303ecded1839e6 (patch)
tree1ebcf042ee027216f0d1ae9d7124e7c082d356ac
parentb9f8e24ec2265375afc57b03bd14977b73f90f9d (diff)
downloadulambda-0559d3a73bc2eadb7e965091e3303ecded1839e6.tar.gz
ulambda-0559d3a73bc2eadb7e965091e3303ecded1839e6.tar.bz2
ulambda-0559d3a73bc2eadb7e965091e3303ecded1839e6.zip
rebirth: Recognize numbers with decimal points
* build-aux/bootstrap/rebirth.scm (tname-verbatim?): Recognize `.' alongside digits.
-rw-r--r--build-aux/bootstrap/rebirth.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/build-aux/bootstrap/rebirth.scm b/build-aux/bootstrap/rebirth.scm
index 2f506fa..b6b2d7c 100644
--- a/build-aux/bootstrap/rebirth.scm
+++ b/build-aux/bootstrap/rebirth.scm
@@ -300,7 +300,7 @@
;;
;; This only returns #t for numbers.
(define (tname-verbatim? name)
- (es:match (es:regexp "^\\d+$") name))
+ (es:match (es:regexp "^-?\\d+(\.\\d+)?$") name))
;; Generate ECMAScript to reference the variable associated with the token T