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
...

--