From f1ac35fa6563827c16f175f3aedc285c58616bec Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Fri, 18 Jun 2010 13:40:54 +0200
Subject: Guile: filtering gensym names in autodoc display.

---
 geiser/utils.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'geiser/utils.scm')

diff --git a/geiser/utils.scm b/geiser/utils.scm
index b047e6c..01dfaa0 100644
--- a/geiser/utils.scm
+++ b/geiser/utils.scm
@@ -1,6 +1,6 @@
 ;;; utils.scm -- utility functions
 
-;; Copyright (C) 2009 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -13,7 +13,9 @@
   #:export (make-location
             symbol->object
             pair->list
-            sort-symbols!))
+            sort-symbols!
+            gensym?)
+  #:use-module (ice-9 regex))
 
 (define (symbol->object sym)
   (and (symbol? sym)
@@ -35,4 +37,10 @@
                (string<? (symbol->string l) (symbol->string r)))))
     (sort! syms cmp)))
 
+(define (gensym? sym)
+  (and (symbol? sym) (gensym-name? (format "~A" sym))))
+
+(define (gensym-name? name)
+  (and (string-match "^#[{]" name) #t))
+
 ;;; utils.scm ends here
-- 
cgit v1.2.3