diff options
author | dos-reis <gdr@axiomatics.org> | 2009-04-09 04:29:46 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-04-09 04:29:46 +0000 |
commit | 519e8a282dd51161e49c9e1d484ff400f546e86a (patch) | |
tree | facdd52f2c8a1bdac3d5efbb986a386678d8eb5e /src/boot | |
parent | def4da7bfc1f143b6a7a13a87895143909dc50c6 (diff) | |
download | open-axiom-519e8a282dd51161e49c9e1d484ff400f546e86a.tar.gz |
Fix SF/2564917
* lisp/core.lisp.in: Default the read to DOUBLE-FLOAT for floating
point literals.
* boot/translator.boot (BOOTTOCLLINES): Don't set it here.
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/translator.boot | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index feb87971..70c5da4e 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2008, Gabriel Dos Reis. +-- Copyright (C) 2007-2009, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -109,8 +109,6 @@ BOOTCLAMLINES(lines, fn, out) == BOOTTOCLLINES(lines, fn, out) BOOTTOCLLINES(lines, fn, outfn)== - -- The default floating point number is double-float. - SETQ(_*READ_-DEFAULT_-FLOAT_-FORMAT_*, 'DOUBLE_-FLOAT) infn:=shoeAddbootIfNec fn shoeOpenInputFile(a,infn, shoeClLines(a,fn,lines,outfn)) |