From 28722c06b7c709b9a44c44447d9740b4de7e15d8 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 1 Apr 2009 07:45:32 +0200 Subject: Bug fix: really remove killed buffers from the list of closed repls. --- geiser/modules.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'geiser/modules.scm') diff --git a/geiser/modules.scm b/geiser/modules.scm index 0afb8fd..fdc3f3f 100644 --- a/geiser/modules.scm +++ b/geiser/modules.scm @@ -35,7 +35,7 @@ #:use-module (ice-9 session) #:use-module (srfi srfi-1)) -(define (symbol-module sym) +(define (symbol-module sym . all) (and sym (catch 'module-name (lambda () @@ -44,7 +44,9 @@ (throw 'module-name (module-name module)) init)) #f (regexp-quote (symbol->string sym)) - (apropos-fold-accessible (current-module)))) + (if (or (null? all) (not (car all))) + (apropos-fold-accessible (current-module)) + apropos-fold-all))) (lambda (key . args) (and (eq? key 'module-name) (car args)))))) -- cgit v1.2.3