From 45ce0071c30e84b72e4c603660285fa6a462e7f7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 7 Nov 2007 20:46:16 +0000
Subject: 	* Makefile.pamphlet (i-toplev.$(FASLEXT)): New rule. 
 (i-syscmd.$(FASLEXT)): Likewise. 	(i-spec2.$(FASLEXT)): Likewise. 
 (i-spec1.$(FASLEXT)): Likewise. 	(i-funsel.$(FASLEXT)): Likewise. 
 (i-map.$(FASLEXT)): Likewise. 	(i-eval.$(FASLEXT)): Likewise. 
 (i-coerfn.$(FASLEXT)): Likewise. 	(i-coerce.$(FASLEXT)): Likewise. 
 (i-resolv.$(FASLEXT)): Likewise. 	(i-analy.$(FASLEXT)): Likewise. 
 (i-code.$(FASLEXT)): Likewise. 	(i-intern.$(FASLEXT)): Likewise. 
 (<<i-analy.clisp>>): Remove. 	(<<i-code.clisp>>): Likewise. 
 (<<i-coerce.clisp>>): Likewise. 	(<<i-coerfn.clisp>>): Likewise. 
 (<<i-eval.clisp>>): Likewise. 	(<<i-funsel.clisp>>): Likewise. 
 (<<i-intern.clisp>>): Likewise. 	(<<i-map.clisp>>): Likewise. 
 (<<i-resolv.clisp>>): Likewise. 	(<<i-spec1.clisp>>): Likewise. 
 (<<i-spec2.clisp>>): Likewise. 	(<<i-syscmd.clisp>>): Likewise. 
 (<<i-toplev.clisp>>): Likewise. 	(<<i-util.clisp>>): Likewise. 	*
 apply.boot (compFormWithModemap): Fix syntax. 	* i-analy.boot.pamphlet: Push
 into package "BOOT". 	* i-code.boot.pamphlet: Likewise. 	*
 i-coerce.boot.pamphlet: Likewise. 	* i-coerfn.boot.pamphlet: Likewise. 
 * i-eval.boot.pamphlet: Likewise. 	* i-funsel.boot.pamphlet: Likewise. 
 * i-intern.boot.pamphlet: Likewise. 	* i-map.boot.pamphlet: Likewise. 
 * i-resolv.boot.pamphlet: Likewise. 	* i-spec1.boot.pamphlet: Likewise. 
 * i-spec2.boot.pamphlet: Likewise. 	* i-syscmd.bot.pamphlet: Likewise. 
 * i-toplev.boot.pamphlet: Likewise. 	* i-util.boot.pamphlet: Likewise.

---
 src/interp/pspad1.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/pspad1.boot')

diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot
index ce580b14..89fe6b79 100644
--- a/src/interp/pspad1.boot
+++ b/src/interp/pspad1.boot
@@ -260,7 +260,7 @@ format(x,:options) ==
   qualification := IFCAR options
   newCOrNil:=
     x is [op,:argl] =>
-      if op = 'return then argl := rest argl
+      if op = "return" then argl := rest argl
       n := #argl
       op is ['elt,y,"construct"] => formatDollar(y,'construct,argl)
       op is ['elt,name,p] and UPPER_-CASE_-P (STRINGIMAGE opOf name).0 => 
-- 
cgit v1.2.3