From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Mark Harig Newsgroups: gmane.lisp.guile.bugs Subject: Re: ,show repl command Date: Tue, 08 Feb 2011 23:42:11 -0500 Message-ID: <8CD962AD993DA87-1B00-7AF0@webmail-m083.sysops.aol.com> References: <8CD8949B6F936FD-F84-18E69@webmail-d083.sysops.aol.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii"; format=flowed Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1297226564 18853 80.91.229.12 (9 Feb 2011 04:42:44 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 9 Feb 2011 04:42:44 +0000 (UTC) To: bug-guile@gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Feb 09 05:42:40 2011 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Pn1sy-0007zA-GG for guile-bugs@m.gmane.org; Wed, 09 Feb 2011 05:42:36 +0100 Original-Received: from localhost ([127.0.0.1]:52183 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pn1sy-0006D8-1L for guile-bugs@m.gmane.org; Tue, 08 Feb 2011 23:42:36 -0500 Original-Received: from [140.186.70.92] (port=46385 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Pn1sr-0006D0-Vv for bug-guile@gnu.org; Tue, 08 Feb 2011 23:42:31 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Pn1sq-0002Y2-JU for bug-guile@gnu.org; Tue, 08 Feb 2011 23:42:29 -0500 Original-Received: from imr-ma03.mx.aol.com ([64.12.206.41]:44705) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Pn1sq-0002Xl-EJ for bug-guile@gnu.org; Tue, 08 Feb 2011 23:42:28 -0500 Original-Received: from imo-ma04.mx.aol.com (imo-ma04.mx.aol.com [64.12.78.139]) by imr-ma03.mx.aol.com (8.14.1/8.14.1) with ESMTP id p194gK29021828 for ; Tue, 8 Feb 2011 23:42:20 -0500 Original-Received: from idirectscm@aim.com by imo-ma04.mx.aol.com (mail_out_v42.9.) id 7.fbc.973b47b (37139) for ; Tue, 8 Feb 2011 23:42:15 -0500 (EST) Original-Received: from smtprly-dd03.mx.aol.com (smtprly-dd03.mx.aol.com [205.188.84.131]) by cia-ma03.mx.aol.com (v129.8) with ESMTP id MAILCIAMA031-d4064d521b23186; Tue, 08 Feb 2011 23:42:15 -0500 Original-Received: from webmail-m083 (webmail-m083.sim.aol.com [64.12.108.101]) by smtprly-dd03.mx.aol.com (v129.8) with ESMTP id MAILSMTPRLYDD032-d4064d521b23186; Tue, 08 Feb 2011 23:42:11 -0500 X-AOL-IP: 98.185.24.91 In-Reply-To: <8CD8949B6F936FD-F84-18E69@webmail-d083.sysops.aol.com> X-MB-Message-Source: WebUI X-MB-Message-Type: User X-Mailer: AIM WebMail 33189-STANDARD Original-Received: from 98.185.24.91 by webmail-m083.sysops.aol.com (64.12.108.101) with HTTP (WebMailUI); Tue, 08 Feb 2011 23:42:11 -0500 X-AOL-SENDER: idirectscm@aim.com X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 64.12.206.41 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:5087 Archived-At: > > 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 =3D ((gc-time-taken . 0) (heap-size . 29126656) (heap-free-size .=20 3182592) (heap-total-allocated . 29068480) (protected-objects . 110)=20 (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=20 `scm_cons'? Here are compilation errors that I am seeing when compiling=20 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=20 FUNC_NAME s_scm_cdr' guile-1.9.15/libguile/pairs.c:150:***Missing or erroneous #undef for=20 scm_car: guile-1.9.15/libguile/pairs.c:155:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cddr' guile-1.9.15/libguile/pairs.c:158:***Missing or erroneous #undef for=20 scm_cdar: guile-1.9.15/libguile/pairs.c:163:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cadr' guile-1.9.15/libguile/pairs.c:166:***Missing or erroneous #undef for=20 scm_caar: guile-1.9.15/libguile/pairs.c:171:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cdddr' guile-1.9.15/libguile/pairs.c:174:***Missing or erroneous #undef for=20 scm_cddar: guile-1.9.15/libguile/pairs.c:179:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cdadr' guile-1.9.15/libguile/pairs.c:182:***Missing or erroneous #undef for=20 scm_cdaar: guile-1.9.15/libguile/pairs.c:187:***Missing or erroneous `#define=20 FUNC_NAME s_scm_caddr' guile-1.9.15/libguile/pairs.c:190:***Missing or erroneous #undef for=20 scm_cadar: guile-1.9.15/libguile/pairs.c:195:***Missing or erroneous `#define=20 FUNC_NAME s_scm_caadr' guile-1.9.15/libguile/pairs.c:198:***Missing or erroneous #undef for=20 scm_caaar: guile-1.9.15/libguile/pairs.c:203:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cddddr' guile-1.9.15/libguile/pairs.c:206:***Missing or erroneous #undef for=20 scm_cdddar: guile-1.9.15/libguile/pairs.c:211:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cddadr' guile-1.9.15/libguile/pairs.c:214:***Missing or erroneous #undef for=20 scm_cddaar: guile-1.9.15/libguile/pairs.c:219:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cdaddr' guile-1.9.15/libguile/pairs.c:222:***Missing or erroneous #undef for=20 scm_cdadar: guile-1.9.15/libguile/pairs.c:227:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cdaadr' guile-1.9.15/libguile/pairs.c:230:***Missing or erroneous #undef for=20 scm_cdaaar: guile-1.9.15/libguile/pairs.c:235:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cadddr' guile-1.9.15/libguile/pairs.c:238:***Missing or erroneous #undef for=20 scm_caddar: guile-1.9.15/libguile/pairs.c:243:***Missing or erroneous `#define=20 FUNC_NAME s_scm_cadadr' guile-1.9.15/libguile/pairs.c:246:***Missing or erroneous #undef for=20 scm_cadaar: guile-1.9.15/libguile/pairs.c:251:***Missing or erroneous `#define=20 FUNC_NAME s_scm_caaddr' guile-1.9.15/libguile/pairs.c:254:***Missing or erroneous #undef for=20 scm_caadar: guile-1.9.15/libguile/pairs.c:259:***Missing or erroneous `#define=20 FUNC_NAME s_scm_caaadr' guile-1.9.15/libguile/pairs.c:262:***Missing or erroneous #undef for=20 scm_caaaar: SNARF ports.doc ... --