From ce09059aa3e8028ef11f5e9573bcc6fac593ef5e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 17 Oct 2007 01:22:52 +0000
Subject: 	Fix SF/1814510 	* i-output.boot.pamphlet (putWidth): Use GETL.
 	* Makefile.pamphlet (i-output.$(FASLEXT)): New rule.

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

(limited to 'src/interp/i-output.boot.pamphlet')

diff --git a/src/interp/i-output.boot.pamphlet b/src/interp/i-output.boot.pamphlet
index c671ac53..b21fe469 100644
--- a/src/interp/i-output.boot.pamphlet
+++ b/src/interp/i-output.boot.pamphlet
@@ -943,7 +943,7 @@ putWidth u ==
     0
   newFirst:=
     atom (oldFirst:= first u) =>
-      fn:= GET(oldFirst,"WIDTH") =>
+      fn:= GETL(oldFirst,"WIDTH") =>
         [oldFirst,:FUNCALL(fn,[oldFirst,:l])]
       if l then ll := rest l else ll := nil
       [oldFirst,:opWidth(oldFirst,ll)+argsWidth]
-- 
cgit v1.2.3