login  home  contents  what's new  discussion  bug reports     help  links  subscribe  changes  refresh  edit

Edit detail for #371 iprint from InternalPrintPackage makes malformed call to FORCE-OUTPUT revision 2 of 2

1 2
Editor: kratt6
Time: 2007/12/28 13:03:16 GMT-8
Note:

added:

From kratt6 Fri Dec 28 13:03:02 -0800 2007
From: kratt6
Date: Fri, 28 Dec 2007 13:03:02 -0800
Subject: 
Message-ID: <20071228130302-0800@axiom-wiki.newsynthesis.org>

Status: pending (next release) => closed 


Submitted by : (unknown) at: 2007-11-17T22:34:07-08:00 (15 years ago)
Name :
Axiom Version :
Category : Severity : Status :
Optional subject :  
Optional comment :

Alasdair McAndrew? points out that calls to iprint results in a hard error. He writes:

I was running a long program recently, and every now and again I wanted a little output to indicate how far the program had got. The "output" command includes a line feed, which I don't want. I've tried:

 )set expose add constructor IPRNTPK

but then, for example:

 for i in 1..10 repeat iprint(i::String)

produces the output:

 1
    >> System error:
    FLUSH is invalid as a function.

Although not exactly reproducable on Silver, there is an error and the fix appears to be:

 --- a/src/algebra/newdata.spad.pamphlet
 +++ b/src/algebra/newdata.spad.pamphlet
 @@ -49,7 +49,7 @@ InternalPrintPackage(): Exports == Implementation where
    Implementation == add
       iprint(s:String) == 
            PRINC(coerce(s)@Symbol)$Lisp
 -          FORCE_-OUTPUT$Lisp
 +          FORCE_-OUTPUT()$Lisp

fixed and commited --swilson, Wed, 11 Jul 2007 22:58:31 -0500 reply
Status: testing => pending (next release)

Status: pending (next release) => closed