aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rwxr-xr-xconfigure18
-rw-r--r--configure.ac2
-rw-r--r--configure.ac.pamphlet2
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/astr.boot2
-rw-r--r--src/interp/br-con.boot2
-rw-r--r--src/interp/br-op1.boot2
-rw-r--r--src/interp/clam.boot4
-rw-r--r--src/interp/define.boot2
-rw-r--r--src/interp/g-cndata.boot2
-rw-r--r--src/interp/i-funsel.boot2
-rw-r--r--src/interp/i-syscmd.boot2
-rw-r--r--src/interp/newfort.boot2
-rw-r--r--src/interp/nrunfast.boot2
-rw-r--r--src/interp/nrunopt.boot2
-rw-r--r--src/interp/pspad2.boot2
-rw-r--r--src/interp/rulesets.boot2
-rw-r--r--src/interp/scan.boot2
-rw-r--r--src/interp/termrw.boot2
-rw-r--r--src/interp/wi1.boot2
20 files changed, 32 insertions, 28 deletions
diff --git a/configure b/configure
index 324eda6b..75e2a05c 100755
--- a/configure
+++ b/configure
@@ -1,6 +1,6 @@
#! /bin/sh
# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.63 for OpenAxiom 1.4.0-2009-09-26.
+# Generated by GNU Autoconf 2.63 for OpenAxiom 1.4.0-2009-09-29.
#
# Report bugs to <open-axiom-bugs@lists.sf.net>.
#
@@ -745,8 +745,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
# Identity of this package.
PACKAGE_NAME='OpenAxiom'
PACKAGE_TARNAME='openaxiom'
-PACKAGE_VERSION='1.4.0-2009-09-26'
-PACKAGE_STRING='OpenAxiom 1.4.0-2009-09-26'
+PACKAGE_VERSION='1.4.0-2009-09-29'
+PACKAGE_STRING='OpenAxiom 1.4.0-2009-09-29'
PACKAGE_BUGREPORT='open-axiom-bugs@lists.sf.net'
ac_unique_file="src/Makefile.pamphlet"
@@ -1498,7 +1498,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF
-\`configure' configures OpenAxiom 1.4.0-2009-09-26 to adapt to many kinds of systems.
+\`configure' configures OpenAxiom 1.4.0-2009-09-29 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]...
@@ -1568,7 +1568,7 @@ fi
if test -n "$ac_init_help"; then
case $ac_init_help in
- short | recursive ) echo "Configuration of OpenAxiom 1.4.0-2009-09-26:";;
+ short | recursive ) echo "Configuration of OpenAxiom 1.4.0-2009-09-29:";;
esac
cat <<\_ACEOF
@@ -1671,7 +1671,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
-OpenAxiom configure 1.4.0-2009-09-26
+OpenAxiom configure 1.4.0-2009-09-29
generated by GNU Autoconf 2.63
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -1685,7 +1685,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
-It was created by OpenAxiom $as_me 1.4.0-2009-09-26, which was
+It was created by OpenAxiom $as_me 1.4.0-2009-09-29, which was
generated by GNU Autoconf 2.63. Invocation command line was
$ $0 $@
@@ -17062,7 +17062,7 @@ exec 6>&1
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
ac_log="
-This file was extended by OpenAxiom $as_me 1.4.0-2009-09-26, which was
+This file was extended by OpenAxiom $as_me 1.4.0-2009-09-29, which was
generated by GNU Autoconf 2.63. Invocation command line was
CONFIG_FILES = $CONFIG_FILES
@@ -17125,7 +17125,7 @@ Report bugs to <bug-autoconf@gnu.org>."
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_version="\\
-OpenAxiom config.status 1.4.0-2009-09-26
+OpenAxiom config.status 1.4.0-2009-09-29
configured by $0, generated by GNU Autoconf 2.63,
with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
diff --git a/configure.ac b/configure.ac
index 7394acaa..7ac46732 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,6 +1,6 @@
sinclude(config/open-axiom.m4)
sinclude(config/aclocal.m4)
-AC_INIT([OpenAxiom], [1.4.0-2009-09-26],
+AC_INIT([OpenAxiom], [1.4.0-2009-09-29],
[open-axiom-bugs@lists.sf.net])
AC_CONFIG_AUX_DIR(config)
diff --git a/configure.ac.pamphlet b/configure.ac.pamphlet
index da453355..e46676f1 100644
--- a/configure.ac.pamphlet
+++ b/configure.ac.pamphlet
@@ -1151,7 +1151,7 @@ information:
<<Autoconf init>>=
sinclude(config/open-axiom.m4)
sinclude(config/aclocal.m4)
-AC_INIT([OpenAxiom], [1.4.0-2009-09-26],
+AC_INIT([OpenAxiom], [1.4.0-2009-09-29],
[open-axiom-bugs@lists.sf.net])
@
diff --git a/src/ChangeLog b/src/ChangeLog
index 06a1e318..e474577e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-09-29 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+ * interp/i-funsel.boot (matchMmSig): Fix thinko from revision 1297.
+
2009-09-26 Gabriel Dos Reis <gdr@cse.tamu.edu>
Fix SF/2854105
diff --git a/src/interp/astr.boot b/src/interp/astr.boot
index 3ccabe7d..16a3764c 100644
--- a/src/interp/astr.boot
+++ b/src/interp/astr.boot
@@ -40,7 +40,7 @@ module astr where
ncPutQ: (%List,%Thing,%Thing) -> %Thing
--% Attributed Structures (astr)
--- For objects which are pairs where the CAR field is either just a tag
+-- For objects which are pairs where the first field is either just a tag
-- (an identifier) or a pair which is the tag and an association list.
-- Pick off the tag
diff --git a/src/interp/br-con.boot b/src/interp/br-con.boot
index 53a0e927..7789d71b 100644
--- a/src/interp/br-con.boot
+++ b/src/interp/br-con.boot
@@ -992,7 +992,7 @@ dbShowCons1(htPage,cAlist,key) ==
bcUnixTable(listSort(function GLESSEQP,REMDUP flist))
key = 'documentation => dbShowConsDoc(page,conlist)
if $exposedOnlyIfTrue then
- cAlist := [x for x in cAlist | isExposedConstructor opOf CAR x]
+ cAlist := [x for x in cAlist | isExposedConstructor opOf first x]
key = 'conditions => dbShowConditions(page,cAlist,kind)
key = 'parameters => bcConTable REMDUP ASSOCLEFT cAlist
key = 'kinds => dbShowConsKinds cAlist
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot
index d5fdebaa..13604dd4 100644
--- a/src/interp/br-op1.boot
+++ b/src/interp/br-op1.boot
@@ -532,7 +532,7 @@ dbShowOpAllDomains(htPage,opAlist,which) ==
domOriginAlist := insertAlist(conname,pred,domOriginAlist)
--the following is similar to "domainsOf" but do not sort immediately
u := [COPY key for key in HKEYS _*HASCATEGORY_-HASH_*
- | LASSQ(CDR key,catOriginAlist)]
+ | LASSQ(rest key,catOriginAlist)]
for pair in u repeat
[dom,:cat] := pair
LASSQ(cat,catOriginAlist) = 'etc => RPLACD(pair,'etc)
diff --git a/src/interp/clam.boot b/src/interp/clam.boot
index 8789e6aa..14f59535 100644
--- a/src/interp/clam.boot
+++ b/src/interp/clam.boot
@@ -457,7 +457,7 @@ assocCacheShift(x,cacheName,fn) == --like ASSOC except that al is circular
RPLACA(forwardPointer,first al)
RPLACA(al,y)
return (val:= y)
- backPointer := forwardPointer --CAR is slot replaced on failure
+ backPointer := forwardPointer --first is slot replaced on failure
forwardPointer:= rest forwardPointer
val => val
setDynamicBinding(cacheName,backPointer)
@@ -648,7 +648,7 @@ lassocShiftQ(x,l) ==
y:= l
while not atom y repeat
EQ(x,first first y) => return (result := first y)
- y:= CDR y
+ y:= rest y
result =>
if NEQ(y,l) then
RPLACA(y,first l)
diff --git a/src/interp/define.boot b/src/interp/define.boot
index f3da40b5..eb08520f 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1709,7 +1709,7 @@ compCategoryItem(x,predl,env) ==
noteExport(y,pred)
PUSH(MKQ [y,pred],$atList)
- --3. it may be a list, with PROGN as the first, and some information as the CDR
+ --3. it may be a list, with PROGN as the first, and some information as the rest
x is ["PROGN",:l] =>
for u in l repeat
compCategoryItem(u,predl,env)
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot
index 96c2f298..0d1771b6 100644
--- a/src/interp/g-cndata.boot
+++ b/src/interp/g-cndata.boot
@@ -65,7 +65,7 @@ getCDTEntry(info,isName) ==
putConstructorProperty(name,prop,val) ==
null (entry := getCDTEntry(name,true)) => NIL
- RPLACD(CDR entry,PUTALIST(CDDR entry,prop,val))
+ RPLACD(rest entry,PUTALIST(CDDR entry,prop,val))
true
attribute? name ==
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot
index 38f54ee4..9caec0b7 100644
--- a/src/interp/i-funsel.boot
+++ b/src/interp/i-funsel.boot
@@ -928,7 +928,7 @@ matchMmSig(mm,tar,args1,args2) ==
[sig,:.]:= mm
if CONTAINED('_#, sig) then
sig := [replaceSharpCalls COPY t for t in sig]
- first args1 => matchMmSigTar(tar,first sig)
+ null args1 => matchMmSigTar(tar,first sig)
a:= rest sig
arg:= NIL
for i in 1.. while args1 and args2 and a until not b repeat
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 6ba35132..7db77377 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1830,7 +1830,7 @@ undoFromFile(n) ==
x:= first p1
for p2 in rest p1 repeat
$InteractiveFrame:= putHist(x,first p2,rest p2,$InteractiveFrame)
- val:= ( p:= ASSQ('%,vec) ) and ( p1:= ASSQ('value,rest p) ) and CDR p1
+ val:= ( p:= ASSQ('%,vec) ) and ( p1:= ASSQ('value,rest p) ) and rest p1
$InteractiveFrame:= putHist('%,'value,val,$InteractiveFrame)
updateHist()
diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index 2c150532..04f83765 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -705,7 +705,7 @@ fortFormatTypes1(typeName,names) ==
insertEntry(size,el,aList) ==
entry := assoc(size,aList)
null entry => CONS(CONS(size,LIST el),aList)
- RPLACD(entry,CONS(el,CDR entry))
+ RPLACD(entry,CONS(el,rest entry))
aList
fortFormatCharacterTypes(names) ==
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot
index 13b2e83e..96f7b3bc 100644
--- a/src/interp/nrunfast.boot
+++ b/src/interp/nrunfast.boot
@@ -354,7 +354,7 @@ newLookupInCategories1(op,sig,dom,dollar) ==
form2String devaluate dom,'"-----> searching default packages for ",op)
predvec := dom.3
slot4 := dom.4
- packageVec := CAR slot4
+ packageVec := first slot4
catVec := first QCDR slot4
--the next three lines can go away with new category world
varList := ['$,:$FormalMapVariableList]
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot
index deecbd19..a4aea6b5 100644
--- a/src/interp/nrunopt.boot
+++ b/src/interp/nrunopt.boot
@@ -105,7 +105,7 @@ makeCompactDirect1(op,items) ==
--identified by a 0 in slot position
if r is [n,:s] then
slot :=
- n is [p,:.] => p --the CDR is linenumber of function definition
+ n is [p,:.] => p --the rest is linenumber of function definition
n
predCode :=
s is [pred,:.] => predicateBitIndex pred
diff --git a/src/interp/pspad2.boot b/src/interp/pspad2.boot
index 1b3bd58a..d7a5af0d 100644
--- a/src/interp/pspad2.boot
+++ b/src/interp/pspad2.boot
@@ -640,7 +640,7 @@ formatLB() ==
format "{"
restoreC() == --used by macro "embrace"
- originalC := CAR $braceStack
+ originalC := first $braceStack
$braceStack := rest $braceStack
formatRB originalC
diff --git a/src/interp/rulesets.boot b/src/interp/rulesets.boot
index aa851141..a2a05ed5 100644
--- a/src/interp/rulesets.boot
+++ b/src/interp/rulesets.boot
@@ -295,7 +295,7 @@ createTypeEquivRules() ==
((QF (P t1)) . (RF t1))
((QF (I)) . (RN))
((RE (RN)) . (RR)) )))
- $TypeEqui := CONS(CAR $TypeEQ, [[b,:a] for [a,:b] in rest $TypeEQ])
+ $TypeEqui := CONS(first $TypeEQ, [[b,:a] for [a,:b] in rest $TypeEQ])
true
initializeRuleSets() ==
diff --git a/src/interp/scan.boot b/src/interp/scan.boot
index c8b9dfe8..ff113938 100644
--- a/src/interp/scan.boot
+++ b/src/interp/scan.boot
@@ -167,7 +167,7 @@ scanKeyWords == [ _
scanKeyTableCons()==
KeyTable:=MAKE_-HASHTABLE("CVEC",true)
for st in scanKeyWords repeat
- HPUT(KeyTable,CAR st,second st)
+ HPUT(KeyTable,first st,second st)
KeyTable
scanKeyTable:=scanKeyTableCons()
diff --git a/src/interp/termrw.boot b/src/interp/termrw.boot
index 7d018dc5..4fd3b1f9 100644
--- a/src/interp/termrw.boot
+++ b/src/interp/termrw.boot
@@ -56,7 +56,7 @@ term1RW(t,R) ==
-- tries to reduce t at the top node
[vars,:varRules]:= R
for r in varRules until not (SL='failed) repeat
- SL:= termMatch(CAR r,t,NIL,vars)
+ SL:= termMatch(first r,t,NIL,vars)
not (SL='failed) =>
t:= subCopy(copy rest r,SL)
t
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot
index b644eb2a..1d987854 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot
@@ -1213,7 +1213,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
if $extraParms then
formals:=actuals:=nil
for u in $extraParms repeat
- formals:=[CAR u,:formals]
+ formals:=[first u,:formals]
actuals:=[MKQ rest u,:actuals]
body := ['sublisV,['PAIR,['QUOTE,formals],['LIST,:actuals]],body]
if argl then body:= -- always subst for args after extraparms
generated by cgit v1.2.3 (git 2.39.1) at 2025-01-13 01:17:14 +0000