aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog10
-rw-r--r--src/boot/tokens.boot8
-rw-r--r--src/input/mapleok.input.pamphlet2
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