From ce09059aa3e8028ef11f5e9573bcc6fac593ef5e Mon Sep 17 00:00:00 2001 From: dos-reis 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/ChangeLog | 7 ++++++- src/interp/Makefile.in | 2 ++ src/interp/Makefile.pamphlet | 2 ++ src/interp/i-output.boot.pamphlet | 2 +- 4 files changed, 11 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 4dff06ac..c8a0ef18 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,9 @@ +2007-10-16 Gabriel Dos Reis + + Fix SF/1814510 + * i-output.boot.pamphlet (putWidth): Use GETL. + * Makefile.pamphlet (i-output.$(FASLEXT)): New rule. + 2007-10-16 Gabriel Dos Reis * Makefile.pamphlet (INOBJS): Lose xrun.$(FASLEXT). @@ -25,7 +31,6 @@ 2007-10-15 Gabriel Dos Reis - * Makefile.pamphlet (<>): Remove. (server.$(FASLEXT)): New rule. * as.boot.pamphlet (asytran): Use VMREAD. diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in index b63d4067..a1f1d24c 100644 --- a/src/interp/Makefile.in +++ b/src/interp/Makefile.in @@ -434,6 +434,8 @@ profile.$(FASLEXT): profile.boot macros.$(FASLEXT) rulesets.$(FASLEXT): rulesets.boot vmlisp.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< +i-output.$(FASLEXT): i-output.boot sys-macros.$(FASLEXT) + $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< format.$(FASLEXT): format.boot macros.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index 679c8769..b1dfa937 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -1609,6 +1609,8 @@ profile.$(FASLEXT): profile.boot macros.$(FASLEXT) rulesets.$(FASLEXT): rulesets.boot vmlisp.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< +i-output.$(FASLEXT): i-output.boot sys-macros.$(FASLEXT) + $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< format.$(FASLEXT): format.boot macros.$(FASLEXT) $(BOOTSYS) -- --compile --boot="old" --output=$@ --load-directory=. $< 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