guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. release_1-9-3-25-g590


From: Neil Jerram
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-3-25-g5904704
Date: Mon, 21 Sep 2009 23:40:29 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=5904704335cbc3ced042892f8a02d6916b3507e6

The branch, master has been updated
       via  5904704335cbc3ced042892f8a02d6916b3507e6 (commit)
       via  e8e655e21bc315a9522b66dd6de1dc76d928ccd5 (commit)
      from  b77afe82a4205bca706a853d7a62aea4ea9b7eed (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5904704335cbc3ced042892f8a02d6916b3507e6
Author: Neil Jerram <address@hidden>
Date:   Tue Sep 22 00:30:44 2009 +0100

    Changes so that benchmark-guile runs successfully
    
    * benchmark-suite/benchmarks/bytevectors.bm: Add "coding: latin1"
      comment where Guile will find it.
    
    * benchmark-suite/benchmarks/chars.bm: Ditto.
    
    * benchmark-suite/benchmarks/srfi-13.bm: Ditto.
    
    * benchmark-suite/benchmarks/read.bm ("read"): Divide numbers of
      iterations by 10, so that the benchmarks complete within a few
      minutes.
    
    * benchmark-suite/lib.scm (benchmark): Use `run-benchmark' in macro
      definition, not `,run-benchmark'.
    
    * benchmark-suite/benchmarks/0-reference.bm,
      benchmark-suite/benchmarks/continuations.bm,
      benchmark-suite/benchmarks/if.bm,
      benchmark-suite/benchmarks/logand.bm: Add define-module.
    
    * benchmark-suite/results/neil-arudy: New file, containing benchmark
      results from my computer.

commit e8e655e21bc315a9522b66dd6de1dc76d928ccd5
Author: Neil Jerram <address@hidden>
Date:   Tue Sep 22 00:00:59 2009 +0100

    GDS usability: operation without a mouse
    
    Derek Peschel provided this patch and described it as follows.
    
    "Most of the time I use Terminal in OS X, rather than xterm.  I also don't
    bother with the GUI versions of Emacs.  So unfortunately I have no mouse
    support in Emacs.  Also the system I'm testing Guile on thinks my terminal
    doesn't support color and I haven't fixed it yet.  The attached patch makes
    GDS more usable for me.
    
    "With no mouse, the "[click here to show error stack]" design is very
    inconvenient.  You added a C-M (return) binding at some point.  I copied
    that, but I also changed the message to show it.  And I made the return
    work when the cursor is after the right bracket."
    
    * emacs/gds-scheme.el (gds-display-results): Make "click here" message
      more helpful for people without mice.  Also extend text properties
      so that a RET key press works at the end of that line.

-----------------------------------------------------------------------

Summary of changes:
 THANKS                                      |    1 +
 benchmark-suite/benchmarks/0-reference.bm   |    4 +
 benchmark-suite/benchmarks/bytevectors.bm   |    2 +-
 benchmark-suite/benchmarks/chars.bm         |    2 +-
 benchmark-suite/benchmarks/continuations.bm |    4 +
 benchmark-suite/benchmarks/if.bm            |    4 +
 benchmark-suite/benchmarks/logand.bm        |    4 +
 benchmark-suite/benchmarks/read.bm          |    8 +-
 benchmark-suite/benchmarks/srfi-13.bm       |    2 +-
 benchmark-suite/lib.scm                     |    2 +-
 benchmark-suite/results/neil-arudy          |   93 +++++++++++++++++++++++++++
 emacs/gds-scheme.el                         |    6 +-
 12 files changed, 122 insertions(+), 10 deletions(-)
 create mode 100644 benchmark-suite/results/neil-arudy

diff --git a/THANKS b/THANKS
index 9012109..8deace5 100644
--- a/THANKS
+++ b/THANKS
@@ -85,6 +85,7 @@ For fixes or providing information which led to a fix:
          Peter O'Gorman
          Pieter Pareit
            Jack Pavlovsky
+          Derek Peschel
            Arno Peters
            Ron Peterson
           David Pirotte
diff --git a/benchmark-suite/benchmarks/0-reference.bm 
b/benchmark-suite/benchmarks/0-reference.bm
index 65085a8..3d02ee7 100644
--- a/benchmark-suite/benchmarks/0-reference.bm
+++ b/benchmark-suite/benchmarks/0-reference.bm
@@ -1,2 +1,6 @@
+
+(define-module (benchmarks 0-reference)
+  :use-module (benchmark-suite lib))
+
 (benchmark "reference benchmark for iteration counts" 330000
   #t)
diff --git a/benchmark-suite/benchmarks/bytevectors.bm 
b/benchmark-suite/benchmarks/bytevectors.bm
index a686a08..06f23ef 100644
--- a/benchmark-suite/benchmarks/bytevectors.bm
+++ b/benchmark-suite/benchmarks/bytevectors.bm
@@ -1,4 +1,4 @@
-;;; -*- mode: scheme; coding: latin-1; -*-
+;;; coding: latin1 -*- mode: scheme; coding: latin-1; -*-
 ;;; R6RS Byte Vectors.
 ;;;
 ;;; Copyright 2009  Ludovic Court├Ęs <address@hidden>
diff --git a/benchmark-suite/benchmarks/chars.bm 
b/benchmark-suite/benchmarks/chars.bm
index dc6ad94..6ae0e60 100644
--- a/benchmark-suite/benchmarks/chars.bm
+++ b/benchmark-suite/benchmarks/chars.bm
@@ -1,4 +1,4 @@
-;;; -*- mode: scheme; coding: latin-1; -*-
+;;; coding: latin1 -*- mode: scheme; coding: latin-1; -*-
 ;;; chars.bm
 ;;;
 ;;; Copyright (C) 2009  Free Software Foundation, Inc.
diff --git a/benchmark-suite/benchmarks/continuations.bm 
b/benchmark-suite/benchmarks/continuations.bm
index 7c44300..59d3d08 100644
--- a/benchmark-suite/benchmarks/continuations.bm
+++ b/benchmark-suite/benchmarks/continuations.bm
@@ -1,3 +1,7 @@
+
+(define-module (benchmarks continuations)
+  :use-module (benchmark-suite lib))
+
 (define (callee continuation)
   (continuation #t))
 
diff --git a/benchmark-suite/benchmarks/if.bm b/benchmark-suite/benchmarks/if.bm
index 30c22c9..70aa8de 100644
--- a/benchmark-suite/benchmarks/if.bm
+++ b/benchmark-suite/benchmarks/if.bm
@@ -1,3 +1,7 @@
+
+(define-module (benchmarks if)
+  :use-module (benchmark-suite lib))
+
 (with-benchmark-prefix "if-<expr>-then-else"
 
   (benchmark "executing then" 330000
diff --git a/benchmark-suite/benchmarks/logand.bm 
b/benchmark-suite/benchmarks/logand.bm
index cdb05e8..c94ad31 100644
--- a/benchmark-suite/benchmarks/logand.bm
+++ b/benchmark-suite/benchmarks/logand.bm
@@ -1,3 +1,7 @@
+
+(define-module (benchmarks logand)
+  :use-module (benchmark-suite lib))
+
 (define bignum (1- (expt 2 128)))
 
 (let* ((i 0))
diff --git a/benchmark-suite/benchmarks/read.bm 
b/benchmark-suite/benchmarks/read.bm
index f11ca68..7bc8150 100644
--- a/benchmark-suite/benchmarks/read.bm
+++ b/benchmark-suite/benchmarks/read.bm
@@ -49,14 +49,14 @@
   (benchmark "_IONBF" 5  ;; this one is very slow
     (exercise-read (list _IONBF)))
 
-  (benchmark "_IOLBF" 100
+  (benchmark "_IOLBF" 10
     (exercise-read (list _IOLBF)))
 
-  (benchmark "_IOFBF 4096" 100
+  (benchmark "_IOFBF 4096" 10
     (exercise-read (list _IOFBF 4096)))
 
-  (benchmark "_IOFBF 8192" 100
+  (benchmark "_IOFBF 8192" 10
     (exercise-read (list _IOFBF 8192)))
 
-  (benchmark "_IOFBF 16384" 100
+  (benchmark "_IOFBF 16384" 10
     (exercise-read (list _IOFBF 16384))))
diff --git a/benchmark-suite/benchmarks/srfi-13.bm 
b/benchmark-suite/benchmarks/srfi-13.bm
index e648e2a..c6afd7e 100644
--- a/benchmark-suite/benchmarks/srfi-13.bm
+++ b/benchmark-suite/benchmarks/srfi-13.bm
@@ -1,4 +1,4 @@
-;;; -*- mode: scheme; coding: latin-1; -*-
+;;; coding: latin1 -*- mode: scheme; coding: latin-1; -*-
 ;;; srfi-13.bm
 ;;;
 ;;; Copyright (C) 2009  Free Software Foundation, Inc.
diff --git a/benchmark-suite/lib.scm b/benchmark-suite/lib.scm
index 65253c5..4a2bf38 100644
--- a/benchmark-suite/lib.scm
+++ b/benchmark-suite/lib.scm
@@ -325,7 +325,7 @@
 
 ;;; A short form for benchmarks.
 (defmacro benchmark (name iterations body . rest)
-  `(,run-benchmark ,name ,iterations (lambda () ,body ,@rest)))
+  `(run-benchmark ,name ,iterations (lambda () ,body ,@rest)))
 
 
 ;;;; BENCHMARK NAMES
diff --git a/benchmark-suite/results/neil-arudy 
b/benchmark-suite/results/neil-arudy
new file mode 100644
index 0000000..7b61d39
--- /dev/null
+++ b/benchmark-suite/results/neil-arudy
@@ -0,0 +1,93 @@
+Benchmarking /home/neil/SW/Guile/git/meta/guile ...
+with GUILE_LOAD_PATH=/home/neil/SW/Guile/git/benchmark-suite
+;; running guile version 1.9.3
+;; calibrating the benchmarking framework...
+;; framework time per iteration: 5.7220458984375e-7
+("0-reference.bm: reference benchmark for iteration counts" 330000 user 0.2 
benchmark 0.0111724853515625 bench/interp 0.0111724853515625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u8-ref" 1000000 user 0.73 benchmark 
0.15779541015625 bench/interp 0.15779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u16-ref (foreign)" 1000000 user 0.82 
benchmark 0.24779541015625 bench/interp 0.24779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u16-ref (native)" 1000000 user 0.78 
benchmark 0.20779541015625 bench/interp 0.20779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u16-native-ref" 1000000 user 0.72 
benchmark 0.14779541015625 bench/interp 0.14779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u32-ref (foreign)" 1000000 user 1.61 
benchmark 1.03779541015625 bench/interp 1.03779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u32-ref (native)" 1000000 user 0.8 
benchmark 0.22779541015625 bench/interp 0.22779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u32-native-ref" 1000000 user 0.74 
benchmark 0.16779541015625 bench/interp 0.16779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u64-ref (foreign)" 1000000 user 1.86 
benchmark 1.28779541015625 bench/interp 1.28779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u64-ref (native)" 1000000 user 0.81 
benchmark 0.23779541015625 bench/interp 0.23779541015625 gc 0.0)
+("bytevectors.bm: ref/set!: bytevector-u64-native-ref" 1000000 user 0.73 
benchmark 0.15779541015625 bench/interp 0.15779541015625 gc 0.0)
+("bytevectors.bm: lists: bytevector->u8-list" 2000 user 9.87 benchmark 
9.86885559082031 bench/interp 9.86885559082031 gc 0.0)
+("bytevectors.bm: lists: bytevector->uint-list 16-bit" 2000 user 4.48 
benchmark 4.47885559082031 bench/interp 4.47885559082031 gc 0.0)
+("bytevectors.bm: lists: bytevector->uint-list 64-bit" 2000 user 3.75 
benchmark 3.74885559082031 bench/interp 3.74885559082031 gc 0.0)
+("bytevectors.bm: SRFI-4: u8vector-ref" 1000000 user 1.88 benchmark 
1.30779541015625 bench/interp 1.30779541015625 gc 0.0)
+("bytevectors.bm: SRFI-4: u16vector-ref" 1000000 user 1.9 benchmark 
1.32779541015625 bench/interp 1.32779541015625 gc 0.0)
+("bytevectors.bm: SRFI-4: u32vector-ref" 1000000 user 1.88 benchmark 
1.30779541015625 bench/interp 1.30779541015625 gc 0.0)
+("bytevectors.bm: SRFI-4: u64vector-ref" 1000000 user 1.98 benchmark 
1.40779541015625 bench/interp 1.40779541015625 gc 0.0)
+("chars.bm: chars: char" 1000000 user 0.63 benchmark 0.05779541015625 
bench/interp 0.05779541015625 gc 0.0)
+("chars.bm: chars: octal" 1000000 user 0.64 benchmark 0.06779541015625 
bench/interp 0.06779541015625 gc 0.0)
+("chars.bm: chars: char? eq" 1000000 user 1.19 benchmark 0.61779541015625 
bench/interp 0.61779541015625 gc 0.0)
+("chars.bm: chars: char=?" 1000000 user 1.45 benchmark 0.87779541015625 
bench/interp 0.87779541015625 gc 0.0)
+("chars.bm: chars: char<?" 1000000 user 1.45 benchmark 0.87779541015625 
bench/interp 0.87779541015625 gc 0.0)
+("chars.bm: chars: char-ci=?" 1000000 user 1.45 benchmark 0.87779541015625 
bench/interp 0.87779541015625 gc 0.0)
+("chars.bm: chars: char-ci<? " 1000000 user 1.45 benchmark 0.87779541015625 
bench/interp 0.87779541015625 gc 0.0)
+("chars.bm: chars: char->integer" 1000000 user 1.2 benchmark 0.62779541015625 
bench/interp 0.62779541015625 gc 0.0)
+("chars.bm: chars: char-alphabetic?" 1000000 user 1.36 benchmark 
0.78779541015625 bench/interp 0.78779541015625 gc 0.0)
+("chars.bm: chars: char-numeric?" 1000000 user 1.36 benchmark 0.78779541015625 
bench/interp 0.78779541015625 gc 0.0)
+("continuations.bm: call/cc" 300 user 0.03 benchmark 0.0298283386230469 
bench/interp 0.0298283386230469 gc 0.0)
+("if.bm: if-<expr>-then-else: executing then" 330000 user 0.23 benchmark 
0.0411724853515625 bench/interp 0.0411724853515625 gc 0.0)
+("if.bm: if-<expr>-then-else: executing else" 330000 user 0.23 benchmark 
0.0411724853515625 bench/interp 0.0411724853515625 gc 0.0)
+("if.bm: if-<expr>-then: executing then" 330000 user 0.23 benchmark 
0.0411724853515625 bench/interp 0.0411724853515625 gc 0.0)
+("if.bm: if-<expr>-then: executing else" 330000 user 0.24 benchmark 
0.0511724853515625 bench/interp 0.0511724853515625 gc 0.0)
+("if.bm: if-<iloc>-then-else: executing then" 330000 user 0.25 benchmark 
0.0611724853515625 bench/interp 0.0611724853515625 gc 0.0)
+("if.bm: if-<iloc>-then-else: executing else" 330000 user 0.24 benchmark 
0.0511724853515625 bench/interp 0.0511724853515625 gc 0.0)
+("if.bm: if-<iloc>-then: executing then" 330000 user 0.24 benchmark 
0.0511724853515625 bench/interp 0.0511724853515625 gc 0.0)
+("if.bm: if-<iloc>-then: executing else" 330000 user 0.24 benchmark 
0.0511724853515625 bench/interp 0.0511724853515625 gc 0.0)
+("if.bm: if-<bool>-then-else: executing then" 330000 user 0.23 benchmark 
0.0411724853515625 bench/interp 0.0411724853515625 gc 0.0)
+("if.bm: if-<bool>-then-else: executing else" 330000 user 0.23 benchmark 
0.0411724853515625 bench/interp 0.0411724853515625 gc 0.0)
+("if.bm: if-<bool>-then: executing then" 330000 user 0.24 benchmark 
0.0511724853515625 bench/interp 0.0511724853515625 gc 0.0)
+("if.bm: if-<bool>-then: executing else" 330000 user 0.23 benchmark 
0.0411724853515625 bench/interp 0.0411724853515625 gc 0.0)
+("logand.bm: bignum" 130000 user 0.48 benchmark 0.405613403320312 bench/interp 
0.405613403320312 gc 0.0)
+("read.bm: read: _IONBF" 5 user 12.71 benchmark 12.7099971389771 bench/interp 
12.7099971389771 gc 0.0)
+("read.bm: read: _IOLBF" 10 user 20.32 benchmark 20.3199942779541 bench/interp 
20.3199942779541 gc 0.0)
+("read.bm: read: _IOFBF 4096" 10 user 20.34 benchmark 20.3399942779541 
bench/interp 20.3399942779541 gc 0.0)
+("read.bm: read: _IOFBF 8192" 10 user 20.36 benchmark 20.3599942779541 
bench/interp 20.3599942779541 gc 0.0)
+("read.bm: read: _IOFBF 16384" 10 user 20.34 benchmark 20.3399942779541 
bench/interp 20.3399942779541 gc 0.0)
+("srfi-13.bm: strings: predicates: string?" 1190000 user 2.98 benchmark 
2.29907653808594 bench/interp 2.29907653808594 gc 0.0)
+("srfi-13.bm: strings: predicates: null?" 969000 user 2.56 benchmark 
2.00553375244141 bench/interp 2.00553375244141 gc 0.0)
+("srfi-13.bm: strings: predicates: any" 94000 user 1.89 benchmark 
1.83621276855469 bench/interp 1.83621276855469 gc 0.0)
+("srfi-13.bm: strings: predicates: every" 94000 user 1.53 benchmark 
1.47621276855469 bench/interp 1.47621276855469 gc 0.0)
+("srfi-13.bm: strings: constructors: string" 5000 user 2.02 benchmark 
2.01713897705078 bench/interp 2.01713897705078 gc 0.0)
+("srfi-13.bm: strings: constructors: list->" 4500 user 0.3 benchmark 
0.297425079345703 bench/interp 0.297425079345703 gc 0.0)
+("srfi-13.bm: strings: constructors: reverse-list->" 5000 user 0.58 benchmark 
0.577138977050781 bench/interp 0.577138977050781 gc 0.0)
+("srfi-13.bm: strings: constructors: make" 22000 user 0.52 benchmark 
0.507411499023438 bench/interp 0.507411499023438 gc 0.0)
+("srfi-13.bm: strings: constructors: tabulate" 17000 user 0.57 benchmark 
0.560272521972656 bench/interp 0.560272521972656 gc 0.0)
+("srfi-13.bm: strings: constructors: join" 5500 user 0.46 benchmark 
0.456852874755859 bench/interp 0.456852874755859 gc 0.0)
+("srfi-13.bm: strings: list/string: ->list" 7300 user 2.36 benchmark 
2.35582290649414 bench/interp 2.35582290649414 gc 0.0)
+("srfi-13.bm: strings: list/string: split" 60000 user 1.87 benchmark 
1.83566772460938 bench/interp 1.83566772460938 gc 0.0)
+("srfi-13.bm: strings: selection: ref" 660 user 1.5 benchmark 1.4996223449707 
bench/interp 1.4996223449707 gc 0.0)
+("srfi-13.bm: strings: selection: copy" 1100 user 0.04 benchmark 
0.0393705749511719 bench/interp 0.0393705749511719 gc 0.0)
+("srfi-13.bm: strings: selection: pad" 6800 user 0.17 benchmark 
0.166109008789063 bench/interp 0.166109008789063 gc 0.0)
+("srfi-13.bm: strings: selection: trim trim-right trim-both" 60000 user 2.67 
benchmark 2.63566772460937 bench/interp 2.63566772460937 gc 0.0)
+("srfi-13.bm: strings: modification: set!" 3000 user 1.42 benchmark 
1.41828338623047 bench/interp 1.41828338623047 gc 0.0)
+("srfi-13.bm: strings: modification: sub-move!" 230000 user 1.88 benchmark 
1.74839294433594 bench/interp 1.74839294433594 gc 0.0)
+("srfi-13.bm: strings: modification: fill!" 230000 user 2.31 benchmark 
2.17839294433594 bench/interp 2.17839294433594 gc 0.0)
+("srfi-13.bm: strings: modification: comparison: compare compare-ci" 140000 
user 1.93 benchmark 1.84989135742187 bench/interp 1.84989135742187 gc 0.0)
+("srfi-13.bm: strings: modification: comparison: hash hash-ci" 1000 user 0.27 
benchmark 0.269427795410156 bench/interp 0.269427795410156 gc 0.0)
+("srfi-13.bm: strings: searching: prefix-length suffix-length" 270 user 0.2 
benchmark 0.199845504760742 bench/interp 0.199845504760742 gc 0.0)
+("srfi-13.bm: strings: searching: prefix? suffix?" 270 user 0.2 benchmark 
0.199845504760742 bench/interp 0.199845504760742 gc 0.0)
+("srfi-13.bm: strings: searching: index index-right rindex" 100000 user 3.48 
benchmark 3.42277954101562 bench/interp 3.42277954101562 gc 0.0)
+("srfi-13.bm: strings: searching: skip skip-right?" 100000 user 2.14 benchmark 
2.08277954101563 bench/interp 2.08277954101563 gc 0.0)
+("srfi-13.bm: strings: searching: count" 10000 user 9.35 benchmark 
9.34427795410156 bench/interp 9.34427795410156 gc 0.0)
+("srfi-13.bm: strings: searching: contains contains-ci" 34000 user 2.29 
benchmark 2.27054504394531 bench/interp 2.27054504394531 gc 0.0)
+("srfi-13.bm: strings: searching: upcase downcase upcase! downcase!" 600 user 
0.2 benchmark 0.199656677246094 bench/interp 0.199656677246094 gc 0.0)
+("srfi-13.bm: strings: readers: read token, method 1" 1200 user 1.26 benchmark 
1.25931335449219 bench/interp 1.25931335449219 gc 0.0)
+("srfi-13.bm: strings: readers: read token, method 2" 1200 user 2.03 benchmark 
2.02931335449219 bench/interp 2.02931335449219 gc 0.0)
+("subr.bm: subr invocation: simple subr" 700000 user 0.47 benchmark 
0.069456787109375 bench/interp 0.069456787109375 gc 0.0)
+("subr.bm: subr invocation: generic subr" 700000 user 1.75 benchmark 
1.34945678710938 bench/interp 1.34945678710938 gc 0.0)
+("subr.bm: subr invocation: generic subr with rest arg" 700000 user 1.39 
benchmark 0.989456787109375 bench/interp 0.989456787109375 gc 0.0)
+("subr.bm: subr invocation: generic subr with rest arg and 3+ parameters" 
700000 user 1.86 benchmark 1.45945678710938 bench/interp 1.45945678710938 gc 
0.0)
+("subr.bm: subr application: simple subr" 700000 user 0.91 benchmark 
0.509456787109375 bench/interp 0.509456787109375 gc 0.0)
+("subr.bm: subr application: generic subr" 700000 user 1.8 benchmark 
1.39945678710938 bench/interp 1.39945678710938 gc 0.0)
+("subr.bm: subr application: generic subr with rest arg" 700000 user 1.44 
benchmark 1.03945678710937 bench/interp 1.03945678710937 gc 0.0)
+("subr.bm: subr application: generic subr with rest arg and 3+ parameters" 
700000 user 1.89 benchmark 1.48945678710937 bench/interp 1.48945678710937 gc 
0.0)
+("uniform-vector-read.bm: uniform-vector-read!: uniform-vector-write" 500 user 
0.12 benchmark 0.119713897705078 bench/interp 0.119713897705078 gc 0.0)
+("uniform-vector-read.bm: uniform-vector-read!: uniform-vector-read!" 500 user 
0.02 benchmark 0.0197138977050781 bench/interp 0.0197138977050781 gc 0.0)
+("uniform-vector-read.bm: uniform-vector-read!: string port" 5000 user 2.49 
benchmark 2.48713897705078 bench/interp 2.48713897705078 gc 0.0)
diff --git a/emacs/gds-scheme.el b/emacs/gds-scheme.el
index bb605c3..326d152 100755
--- a/emacs/gds-scheme.el
+++ b/emacs/gds-scheme.el
@@ -424,11 +424,13 @@ through the code."
                    (map (make-sparse-keymap)))
                (define-key map [mouse-1] 'gds-show-last-stack)
                (define-key map "\C-m" 'gds-show-last-stack)
-               (insert "[click here to show error stack]")
+               (insert "[click here (or RET) to show error stack]")
                (add-text-properties beg (point)
                                     (list 'keymap map
                                           'mouse-face 'highlight))
-               (insert "\n")))
+               (insert "\n")
+               (add-text-properties (1- (point)) (point)
+                                    (list 'keymap map))))
          (goto-char (point-min))
          (gds-associate-buffer client))
        (pop-to-buffer buf)


hooks/post-receive
-- 
GNU Guile




reply via email to

[Prev in Thread] Current Thread [Next in Thread]