From 0d661cf09b5f357230ee63dd079b04fc8138d235 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 25 Jul 2009 03:36:38 +0000 Subject: * configure.ac.pamphlet: Reject SBCL-1.0.29 as too buggy to build OpenAxiom. src/ Fix SF/2798962 * interp/c-doc.boot (checkDecorate): Don't insert formatting braces in Spad mode. --- src/ChangeLog | 6 ++++++ src/interp/c-doc.boot | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 5146627c..ca318df2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2009-07-24 Gabriel Dos Reis + + Fix SF/2798962 + * interp/c-doc.boot (checkDecorate): Don't insert formatting + braces in Spad mode. + 2009-07-16 Gabriel Dos Reis * algebra/odeef.spad.pamphlet (ElementaryFunctionODESolver): Tidy. diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot index ce5958d2..7355d14f 100644 --- a/src/interp/c-doc.boot +++ b/src/interp/c-doc.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 @@ -806,7 +806,9 @@ checkDecorate u == acc x = char '_$ or x = '"$" => ['"\$",:acc] x = char '_% or x = '"%" => ['"\%",:acc] - x = char '_, or x = '"," => ['",{}",:acc] + x = char '_, or x = '"," => + spadflag => ['",",:acc] + ['",{}",:acc] x = '"\spad" => ['"\spad",:acc] STRINGP x and DIGITP x.0 => [x,:acc] not spadflag and -- cgit v1.2.3