From 27989028649c5e651749a5ebdd7eaedf1cfa5314 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sun, 21 Nov 2010 01:56:02 +0100
Subject: Better module help

We now display procedure signatures in module help, and keep a cache
in Guile, using procedure properties.
---
 geiser/utils.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'geiser/utils.scm')

diff --git a/geiser/utils.scm b/geiser/utils.scm
index 01dfaa0..632fe76 100644
--- a/geiser/utils.scm
+++ b/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))))
 
-- 
cgit v1.2.3