diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-21 01:56:02 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-21 01:56:02 +0100 |
| commit | 1d725a8c087b66b2cd2c0e5006c376faf612d6ff (patch) | |
| tree | e660e30075c5b03b64da49988683af048eb4f6b0 /scheme/guile/geiser/utils.scm | |
| parent | 481f0ea2e5577ad5bb1a718b8023af92202e7423 (diff) | |
| download | geiser-guile-1d725a8c087b66b2cd2c0e5006c376faf612d6ff.tar.gz geiser-guile-1d725a8c087b66b2cd2c0e5006c376faf612d6ff.tar.bz2 | |
Better module help
We now display procedure signatures in module help, and keep a cache
in Guile, using procedure properties.
Diffstat (limited to 'scheme/guile/geiser/utils.scm')
| -rw-r--r-- | scheme/guile/geiser/utils.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/scheme/guile/geiser/utils.scm b/scheme/guile/geiser/utils.scm index 01dfaa0..632fe76 100644 --- a/scheme/guile/geiser/utils.scm +++ b/scheme/guile/geiser/utils.scm @@ -14,6 +14,7 @@ symbol->object pair->list sort-symbols! + make-symbol-sort gensym?) #:use-module (ice-9 regex)) @@ -37,6 +38,13 @@ (string<? (symbol->string l) (symbol->string r))))) (sort! syms cmp))) +(define (make-symbol-sort sel) + (let ((cmp (lambda (a b) + (string<? (symbol->string (sel a)) + (symbol->string (sel b)))))) + (lambda (syms) + (sort! syms cmp)))) + (define (gensym? sym) (and (symbol? sym) (gensym-name? (format "~A" sym)))) |