* interp/as.boot: Clean up.

	* interp/ax.boot: Likewise.
	* interp/br-con.boot: Likewise.
	* interp/br-data.boot: Likewise.
	* interp/br-op1.boot: Likewise.
	* interp/br-op2.boot: Likewise.
	* interp/br-saturn.boot: Likewise.
	* interp/br-search.boot: Likewise.
	* interp/c-util.boot: Likewise.
	* interp/category.boot: Likewise.
	* interp/cattable.boot: Likewise.
	* interp/clam.boot: Likewise.
	* interp/compiler.boot: Likewise.
	* interp/cstream.boot: Likewise.
	* interp/define.boot: Likewise.
	* interp/format.boot: Likewise.
	* interp/fortcall.boot: Likewise.
	* interp/functor.boot: Likewise.
	* interp/g-boot.boot: Likewise.
	* interp/g-opt.boot: Likewise.
	* interp/g-timer.boot: Likewise.
	* interp/guess.boot: Likewise.
	* interp/i-analy.boot: Likewise.
	* interp/i-coerce.boot: Likewise.
	* interp/i-coerfn.boot: Likewise.
	* interp/i-eval.boot: Likewise.
	* interp/i-funsel.boot: Likewise.
	* interp/i-intern.boot: Likewise.
	* interp/i-map.boot: Likewise.
	* interp/i-object.boot: Likewise.
	* interp/i-output.boot: Likewise.
	* interp/i-resolv.boot: Likewise.
	* interp/i-spec1.boot: Likewise.
	* interp/i-spec2.boot: Likewise.
	* interp/i-syscmd.boot: Likewise.
	* interp/int-top.boot: Likewise.
	* interp/interop.boot: Likewise.
	* interp/lisplib.boot: Likewise.
	* interp/mark.boot: Likewise.
	* interp/modemap.boot: Likewise.
	* interp/msg.boot: Likewise.
	* interp/msgdb.boot: Likewise.
	* interp/newfort.boot: Likewise.
	* interp/nrunfast.boot: Likewise.
	* interp/nrungo.boot: Likewise.
	* interp/nrunopt.boot: Likewise.
	* interp/pf2atree.boot: Likewise.
	* interp/pile.boot: Likewise.
	* interp/pspad1.boot: Likewise.
	* interp/ptrees.boot: Likewise.
	* interp/scan.boot: Likewise.
	* interp/sfsfun.boot: Likewise.
	* interp/showimp.boot: Likewise.
	* interp/slam.boot: Likewise.
	* interp/trace.boot: Likewise.
	* interp/wi1.boot: Likewise.
	* interp/word.boot: Likewise.

1 files changed, 7 insertions, 7 deletions

diff --git a/src/interp/ptrees.boot b/src/interp/ptrees.boot
index 6aa764af..16fe4168 100644
--- a/src/interp/ptrees.boot
+++ b/src/interp/ptrees.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
@@ -275,7 +275,7 @@ pfAdd(pfbase, pfaddin,:addon) ==
 pfAdd?(pf) == pfAbSynOp? (pf, 'Add)
 pfAddBase pf == second pf       -- was ==>
 pfAddAddin pf == third pf       -- was ==>
-pfAddAddon pf == CADDDR pf       -- was ==>
+pfAddAddon pf == fourth pf       -- was ==>
 pf0AddBase pf == pfParts pfAddBase pf
 
 
@@ -296,7 +296,7 @@ pfWith(pfbase, pfwithin,pfwithon) ==
 pfWith?(pf) == pfAbSynOp? (pf, 'With)
 pfWithBase pf == second pf       -- was ==>
 pfWithWithin pf == third pf       -- was ==>
-pfWithWithon pf == CADDDR pf       -- was ==>
+pfWithWithon pf == fourth pf       -- was ==>
 pf0WithBase pf == pfParts pfWithBase pf
 pf0WithWithin pf == pfParts pfWithWithin pf
 
@@ -307,7 +307,7 @@ pfWIf(pfcond, pfthen, pfelse) == pfTree('WIf, [pfcond, pfthen, pfelse])
 pfWIf?(pf) == pfAbSynOp? (pf, 'WIf)
 pfWIfCond pf == second pf       -- was ==>
 pfWIfThen pf == third pf       -- was ==>
-pfWIfElse pf == CADDDR pf       -- was ==>
+pfWIfElse pf == fourth pf       -- was ==>
 
 -- WDeclare    := (Signature: Typed, Doc: ? Document)
 
@@ -404,7 +404,7 @@ pfbody])
 pfLambda?(pf) == pfAbSynOp? (pf, 'Lambda)
 pfLambdaArgs pf == second pf       -- was ==>
 pfLambdaRets pf == third pf       -- was ==>
-pfLambdaBody pf == CADDDR pf       -- was ==>
+pfLambdaBody pf == fourth pf       -- was ==>
 pf0LambdaArgs pf == pfParts pfLambdaArgs pf
 pfFix pf== pfApplication(pfId "Y",pf)
 
@@ -415,7 +415,7 @@ pfTLambda(pfargs, pfrets, pfbody) == pfTree('TLambda, [pfargs, pfrets, pfbody])
 pfTLambda?(pf) == pfAbSynOp? (pf, 'TLambda)
 pfTLambdaArgs pf == second pf       -- was ==>
 pfTLambdaRets pf == third pf       -- was ==>
-pfTLambdaBody pf == CADDDR pf       -- was ==>
+pfTLambdaBody pf == fourth pf       -- was ==>
 pf0TLambdaArgs pf == pfParts pfTLambdaArgs pf
 
 
@@ -443,7 +443,7 @@ pfIf(pfcond, pfthen, pfelse) == pfTree('If, [pfcond, pfthen, pfelse])
 pfIf?(pf) == pfAbSynOp? (pf, 'If)
 pfIfCond pf == second pf       -- was ==>
 pfIfThen pf == third pf       -- was ==>
-pfIfElse pf == CADDDR pf       -- was ==>
+pfIfElse pf == fourth pf       -- was ==>
 
 -- %Match := (Expr: Expr, Alts: [Exit])