,show repl command

,show repl command

[Ramakrishnan Muthukrishnan]

Not sure whether this is a bug.

The Guile manual [1] mentions the existance of a repl command called
`show'. When I tried this, I get the following message.

scheme@(guile-user)> ,show
Show Commands:

While executing meta-command:
ERROR: In procedure car:
ERROR: Wrong type argument in position 1 (expecting pair): #f
scheme@(guile-user)> ,show w
While executing meta-command:
ERROR: In procedure car:
ERROR: Wrong type argument in position 1 (expecting pair): #f

The description of `show' says:

"With one argument, tries to show a particular piece of information;
currently supported topics are `warranty' (or `w'), `copying' (or
`c'), and `version' (or `v').
 Without any argument, a list of topics is displayed."

That seem to be inconsistant with what is displayed in response to the
command. I thought I will report it here. May be I am missing
something.

[1]  <http://www.gnu.org/software/guile/docs/master/guile.html/Help-Commands.html#Help-Commands>

Thanks
-- 
  Ramakrishnan

Re: ,show repl command

[Ramakrishnan Muthukrishnan]

Additional information:

I am running guile from the git master:

scheme@(guile-user)> (version)
$2 = "1.9.14.84-43256"

--
  Ramakrishnan

Re: ,show repl command

[Mark Harig]

On Sun, Jan 23, 2011 at 07:53:14PM +0530, Ramakrishnan Muthukrishnan 
wrote:
> Not sure whether this is a bug.
>
> The Guile manual [1] mentions the existance of a repl command called
> `show'. When I tried this, I get the following message.
>
> scheme@(guile-user)> ,show
> Show Commands:
>
> While executing meta-command:
> ERROR: In procedure car:
> ERROR: Wrong type argument in position 1 (expecting pair): #f

I have seen this error for the `show' command, too, and a
similar error for `statistics'.  There are also a number of
errors in the help text from several commands (see below).

This is for guile 1.9.14.

Error 1)

scheme@(guile-user)> ,show w
While executing meta-command:
ERROR: In procedure car:
ERROR: Wrong type argument in position 1 (expecting pair): #f

scheme@(guile-user)> ,show copying
While executing meta-command:
ERROR: In procedure car:
ERROR: Wrong type argument in position 1 (expecting pair): #f

scheme@(guile-user)> ,show v
While executing meta-command:
ERROR: In procedure car:
ERROR: Wrong type argument in position 1 (expecting pair): #f


Error 2)

scheme@(guile-user)> ,statistics
GC times:                     0 /         7 times

Memory size:            current /     limit
                heap         #f /        #f cells
              malloc         #f /        #f bytes

Cells collected:           diff /     total
While executing meta-command:
ERROR: In procedure -:
ERROR: Wrong type argument in position 1: #f


Error 3)

scheme@(guile-user)> ,h -c step
Usage: step
Step until control reaches a different source location.

Step until control reaches a different source location.


NOTE: The same sentence is repeated twice.


Error 4)

scheme@(guile-user)> ,h -c step-instruction
Usage: step-instruction
Step until control reaches a different instruction.

Step until control reaches a different VM instruction.


NOTE: Nearly the same sentence is repeated twice.


Error 5)

scheme@(guile-user)> ,h -c next
Usage: next
Step until control reaches a different source location in the current 
frame.

Step until control reaches a different source location in the current 
frame.


NOTE: The same sentence is repeated twice.


Error 6)

scheme@(guile-user)> ,h -c next-instruction
Usage: next-instruction
Step until control reaches a different instruction in the current frame.

Step until control reaches a different VM instruction in the current 
frame.


NOTE: Nearly the same sentence is repeated twice.


Error 7)

scheme@(guile-user)> ,h -c traps
Usage: traps
Show the set of currently attached traps.

Show the set of currently attached traps (breakpoints and tracepoints).


NOTE: Repeated information that could be reduced to one
sentence.


Error 8)

scheme@(guile-user)> ,h del
Usage: delete IDX
Delete a trap.

Delete a trap.


NOTE: The same sentence is repeated twice.


Error 9)

scheme@(guile-user)> ,h -c disable
Usage: disable IDX
Disable a trap.

Disable a trap.


NOTE: The same sentence is repeated twice.


Error 10)

scheme@(guile-user)> ,h -c enable
Usage: enable IDX
Enable a trap.

Enable a trap.


NOTE: The same sentence is repeated twice.


Error 11)

scheme@(guile-user)> ,h -c registers
Usage: registers
Print registers.

Print the registers of the current frame.


NOTE: Repeated information that could be reduced to one
sentence.

--

Re: ,show repl command

[Mark Harig]

>
> This is for guile 1.9.14.
>
...

This problem exists in 1.9.15, too:

>
> Error 2)
>
> scheme@(guile-user)> ,statistics
> GC times: 0 / 7 times
>
> Memory size: current / limit
>   heap #f / #f cells
>   malloc #f / #f bytes
>
> Cells collected: diff / total
> While executing meta-command:
> ERROR: In procedure -:
> ERROR: Wrong type argument in position 1: #f
>

The procedure `gc-stats' is not returning the alist that is expected
by the meta-command `statistics':

/usr/local/share/guile/2.0/system/repl/command.scm

   (define-meta-command (statistics repl)
     "statistics
   Display statistics."
     (let ((this-tms (times))
           (this-gcs (gc-stats))
           (last-tms (repl-tm-stats repl))
           (last-gcs (repl-gc-stats repl)))
       ;; GC times
       (let ((this-times  (assq-ref this-gcs 'gc-times))
             (last-times  (assq-ref last-gcs 'gc-times)))
   ...

   ;; Cells collected
       (let ((this-marked (assq-ref this-gcs 'cells-marked))
             (last-marked (assq-ref last-gcs 'cells-marked))
             (this-swept  (assq-ref this-gcs 'cells-swept))
             (last-swept  (assq-ref last-gcs 'cells-swept)))
         (display-stat-title "Cells collected:" "diff" "total")
         (display-diff-stat "marked" #f this-marked last-marked "cells")
         (display-diff-stat "swept" #f this-swept last-swept "cells")

But there are no elements in the alist returned by (gc-stats) that
have a key 'cells-marked or 'cells-swept, so `assq-ref' returns #f.

scheme@(guile-user)> ,statistics
GC times:                     2 /         7 times

Memory size:            current /     limit
                heap         #f /        #f cells
              malloc         #f /        #f bytes

Cells collected:           diff /     total
While executing meta-command:
ERROR: In procedure -:
ERROR: Wrong type argument in position 1: #f
scheme@(guile-user)> (gc-stats)
$5 = ((gc-time-taken . 0) (heap-size . 29126656) (heap-free-size . 
3182592) (heap-total-allocated . 29068480) (protected-objects . 110) 
(gc-times . 7))

So, the argument `this' to the procedure `display-time-stat' has an
invalid value for subtraction.

Is the problem in guile/libguile/gc.c, which defines `gc-stats'?

Or, possibly, the problem is in guile/libguile/pairs.c, which defines 
`scm_cons'?

Here are compilation errors that I am seeing when compiling 
libguile/pairs.c:

...
make[3]: Entering directory `guile/make-1.9.15/libguile'
...
SNARF  pairs.doc
guile-1.9.15/libguile/pairs.c:147:***Missing or erroneous `#define 
FUNC_NAME s_scm_cdr'
guile-1.9.15/libguile/pairs.c:150:***Missing or erroneous #undef for 
scm_car:
guile-1.9.15/libguile/pairs.c:155:***Missing or erroneous `#define 
FUNC_NAME s_scm_cddr'
guile-1.9.15/libguile/pairs.c:158:***Missing or erroneous #undef for 
scm_cdar:
guile-1.9.15/libguile/pairs.c:163:***Missing or erroneous `#define 
FUNC_NAME s_scm_cadr'
guile-1.9.15/libguile/pairs.c:166:***Missing or erroneous #undef for 
scm_caar:
guile-1.9.15/libguile/pairs.c:171:***Missing or erroneous `#define 
FUNC_NAME s_scm_cdddr'
guile-1.9.15/libguile/pairs.c:174:***Missing or erroneous #undef for 
scm_cddar:
guile-1.9.15/libguile/pairs.c:179:***Missing or erroneous `#define 
FUNC_NAME s_scm_cdadr'
guile-1.9.15/libguile/pairs.c:182:***Missing or erroneous #undef for 
scm_cdaar:
guile-1.9.15/libguile/pairs.c:187:***Missing or erroneous `#define 
FUNC_NAME s_scm_caddr'
guile-1.9.15/libguile/pairs.c:190:***Missing or erroneous #undef for 
scm_cadar:
guile-1.9.15/libguile/pairs.c:195:***Missing or erroneous `#define 
FUNC_NAME s_scm_caadr'
guile-1.9.15/libguile/pairs.c:198:***Missing or erroneous #undef for 
scm_caaar:
guile-1.9.15/libguile/pairs.c:203:***Missing or erroneous `#define 
FUNC_NAME s_scm_cddddr'
guile-1.9.15/libguile/pairs.c:206:***Missing or erroneous #undef for 
scm_cdddar:
guile-1.9.15/libguile/pairs.c:211:***Missing or erroneous `#define 
FUNC_NAME s_scm_cddadr'
guile-1.9.15/libguile/pairs.c:214:***Missing or erroneous #undef for 
scm_cddaar:
guile-1.9.15/libguile/pairs.c:219:***Missing or erroneous `#define 
FUNC_NAME s_scm_cdaddr'
guile-1.9.15/libguile/pairs.c:222:***Missing or erroneous #undef for 
scm_cdadar:
guile-1.9.15/libguile/pairs.c:227:***Missing or erroneous `#define 
FUNC_NAME s_scm_cdaadr'
guile-1.9.15/libguile/pairs.c:230:***Missing or erroneous #undef for 
scm_cdaaar:
guile-1.9.15/libguile/pairs.c:235:***Missing or erroneous `#define 
FUNC_NAME s_scm_cadddr'
guile-1.9.15/libguile/pairs.c:238:***Missing or erroneous #undef for 
scm_caddar:
guile-1.9.15/libguile/pairs.c:243:***Missing or erroneous `#define 
FUNC_NAME s_scm_cadadr'
guile-1.9.15/libguile/pairs.c:246:***Missing or erroneous #undef for 
scm_cadaar:
guile-1.9.15/libguile/pairs.c:251:***Missing or erroneous `#define 
FUNC_NAME s_scm_caaddr'
guile-1.9.15/libguile/pairs.c:254:***Missing or erroneous #undef for 
scm_caadar:
guile-1.9.15/libguile/pairs.c:259:***Missing or erroneous `#define 
FUNC_NAME s_scm_caaadr'
guile-1.9.15/libguile/pairs.c:262:***Missing or erroneous #undef for 
scm_caaaar:
  SNARF  ports.doc
...

--

Re: ,show repl command

[Mark Harig]

> Is the problem in guile/libguile/gc.c, which defines `gc-stats'? 
>  
> Or, possibly, the problem is in guile/libguile/pairs.c, which defines 
`scm_cons'? 
>  
> Here are compilation errors that I am seeing when compiling 
libguile/pairs.c: 
>  
> ... 
> make[3]: Entering directory `guile/make-1.9.15/libguile' 
> ... 
> SNARF  pairs.doc 
> guile-1.9.15/libguile/pairs.c:147:***Missing or erroneous `#define 
FUNC_NAME s_scm_cdr' 
> guile-1.9.15/libguile/pairs.c:150:***Missing or erroneous #undef for 
scm_car: 
>

I forgot to mention:
   compiler version - gcc 4.5.1
   libffi version - 3.0.9

--

Re: ,show repl command

[Andy Wingo]

On Wed 09 Feb 2011 05:42, Mark Harig <idirectscm@aim.com> writes:

>> This is for guile 1.9.14.
>
> This problem exists in 1.9.15, too:
>
>> scheme@(guile-user)> ,statistics
>> GC times: 0 / 7 times
>>
>> Memory size: current / limit
>>   heap #f / #f cells
>>   malloc #f / #f bytes
>>
>> Cells collected: diff / total
>> While executing meta-command:
>> ERROR: In procedure -:
>> ERROR: Wrong type argument in position 1: #f

Fixed in stable-2.0, finally.

Andy
-- 
http://wingolog.org/

Re: ,show repl command

[Andy Wingo]

Hi Andreas,

On Sun 23 Jan 2011 15:23, Ramakrishnan Muthukrishnan <vu3rdd@gmail.com> writes:

> scheme@(guile-user)> ,show
> Show Commands:
>
> While executing meta-command:
> ERROR: In procedure car:
> ERROR: Wrong type argument in position 1 (expecting pair): #f

I believe you touched this code last :-)  Do you have time to take a
look at this before Wednesday?  It would be really helpful if so.  Also
if you have time, could you look at the bugs that Mark reported?

Sheepishly yours,

Andy
-- 
http://wingolog.org/

Re: ,show repl command

[Andreas Rottmann]

Andy Wingo <wingo@pobox.com> writes:

> Hi Andreas,
>
> On Sun 23 Jan 2011 15:23, Ramakrishnan Muthukrishnan <vu3rdd@gmail.com> writes:
>
>> scheme@(guile-user)> ,show
>> Show Commands:
>>
>> While executing meta-command:
>> ERROR: In procedure car:
>> ERROR: Wrong type argument in position 1 (expecting pair): #f
>
> I believe you touched this code last :-)  Do you have time to take a
> look at this before Wednesday?  It would be really helpful if so.  Also
> if you have time, could you look at the bugs that Mark reported?
>
I'll try to look at these issues this weekend.

Regards, Rotty
-- 
Andreas Rottmann -- <http://rotty.yi.org/>