From 519e8a282dd51161e49c9e1d484ff400f546e86a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 9 Apr 2009 04:29:46 +0000
Subject: 	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.

---
 src/boot/translator.boot | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/boot')

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))
  
-- 
cgit v1.2.3