diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-05-24 00:03:30 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-05-24 00:03:30 +0200 |
| commit | 2d30daecad657d692a7f3cb66deb496630362600 (patch) | |
| tree | 6b4f7e2cc66633465715696ec89f018dcb2b2f20 /scheme/plt/geiser/completions.rkt | |
| parent | 0b491101472741c3728b6ccf80c121d66e90f94e (diff) | |
| download | geiser-guile-2d30daecad657d692a7f3cb66deb496630362600.tar.gz geiser-guile-2d30daecad657d692a7f3cb66deb496630362600.tar.bz2 | |
Racket: PLT implementation renamed to Racket.
Diffstat (limited to 'scheme/plt/geiser/completions.rkt')
| -rw-r--r-- | scheme/plt/geiser/completions.rkt | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/scheme/plt/geiser/completions.rkt b/scheme/plt/geiser/completions.rkt deleted file mode 100644 index e0ff239..0000000 --- a/scheme/plt/geiser/completions.rkt +++ /dev/null @@ -1,31 +0,0 @@ -;;; completions.rkt -- completion support - -;; 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 -;; have received a copy of the license along with this program. If -;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>. - -;; Start date: Sun Apr 26, 2009 19:02 - -#lang scheme - -(provide symbol-completions - module-completions) - -(require srfi/13 geiser/utils geiser/modules) - -(define (filter-prefix prefix lst sort?) - (filter (lambda (s) (string-prefix? prefix s)) - (if sort? (sort lst string<?) lst))) - -(define (symbol-completions prefix) - (filter-prefix prefix - (map symbol->string (namespace-mapped-symbols)) - #t)) - -(define (module-completions prefix) - (filter-prefix prefix (module-list) #f)) - -;;; completions.rkt ends here |