From 94f76a1565f09d189d9f2cef6d3df7860321709e Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 23 May 2010 23:10:52 +0200 Subject: Racket support (PLT 5 needed). --- scheme/plt/geiser/completions.ss | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100644 scheme/plt/geiser/completions.ss (limited to 'scheme/plt/geiser/completions.ss') diff --git a/scheme/plt/geiser/completions.ss b/scheme/plt/geiser/completions.ss deleted file mode 100644 index bf6b1c9..0000000 --- a/scheme/plt/geiser/completions.ss +++ /dev/null @@ -1,31 +0,0 @@ -;;; completions.ss -- completion support - -;; Copyright (C) 2009 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 . - -;; 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 stringstring (namespace-mapped-symbols)) - #t)) - -(define (module-completions prefix) - (filter-prefix prefix (module-list) #f)) - -;;; completions.ss ends here -- cgit v1.2.3