diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 10 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 8 | ||||
| -rw-r--r-- | src/input/mapleok.input.pamphlet | 2 |
3 files changed, 16 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index fc54fb63..02986184 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,15 @@ 2008-04-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + * boot/tokens.boot (second): Now candidate for renaming in + generated Lisp code. + (third): Likewise. + +2008-04-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * input/mapleok.input.pamphlet: Fix typo. + +2008-04-01 Gabriel Dos Reis <gdr@cs.tamu.edu> + Fix AW/386. * interp/i-spec1.boot (transformCollect): Move to i-intern.boot. (upLoopIters): Don't silently return nil for unknown iterators. diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 62d826ff..e60da82e 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -1,4 +1,4 @@ --- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. +-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. -- Copyright (C) 2007-2008, Gabriel Dos Reis. -- All rights reserved. @@ -15,7 +15,7 @@ -- the documentation and/or other materials provided with the -- distribution. -- --- - Neither the name of The Numerical ALgorithms Group Ltd. nor the +-- - Neither the name of The Numerical Algorithms Group Ltd. nor the -- names of its contributors may be used to endorse or promote products -- derived from this software without specific prior written permission. -- @@ -264,6 +264,7 @@ for i in [ _ ["removeDuplicates", "REMDUP"] , _ ["rest", "CDR"] , _ ["reverse", "REVERSE"] , _ + ["second", "CADR"] , _ ["setDifference", "SETDIFFERENCE"] , _ ["setIntersection", "INTERSECTION"] , _ ["setPart", "SETELT"] , _ @@ -271,7 +272,8 @@ for i in [ _ ["size", "SIZE"] , _ ["strconc", "CONCAT"] , _ ["substitute", "SUBST"] , _ - ["take", "TAKE"] , _ + ["take", "TAKE"] , + ["third", "CADDR"] , _ ["true", "T"] , _ ["PLUS", "+"] , _ ["MINUS", "-"] , _ diff --git a/src/input/mapleok.input.pamphlet b/src/input/mapleok.input.pamphlet index 0a80afb3..6954d858 100644 --- a/src/input/mapleok.input.pamphlet +++ b/src/input/mapleok.input.pamphlet @@ -2944,7 +2944,7 @@ in1464a:=integrate(1+1/(I*z)^(1/2), z= 0..%plusInfinity,"noPole") -- + infinity -- Type: Union(f1: OrderedCompletion Expression Integer,...) -in2045:=integrate(atan(1/tan(z)), z= 0..2*Pi) +in2045:=integrate(atan(1/tan(z)), z= 0..2*%pi) -- -- 2 -- - 3%pi |