From 710d1f8be59066f0b52d07b0f43343b3ab671ffa Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 10 Feb 2009 15:12:31 +0100 Subject: Sort completion list in scheme's side. --- scheme/geiser/introspection.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'scheme/geiser/introspection.scm') diff --git a/scheme/geiser/introspection.scm b/scheme/geiser/introspection.scm index 991b62d..4565464 100644 --- a/scheme/geiser/introspection.scm +++ b/scheme/geiser/introspection.scm @@ -44,9 +44,10 @@ (let* ((arity (program-arity program)) (arg-no (first arity)) (opt (> (second arity) 0)) - (args (map first (take (program-bindings program) arg-no))) - (module (program-module program))) - (format-args (if opt (drop-right args 1) args) (and opt (last args)) module))) + (args (map first (take (program-bindings program) arg-no)))) + (format-args (if opt (drop-right args 1) args) + (and opt (last args)) + (program-module program)))) (define (procedure-args proc) (let* ((arity (procedure-property proc 'arity)) @@ -71,6 +72,8 @@ (cons 'module (if module (module-name module) '())))) (define (completions prefix) - (map symbol->string (apropos-internal (string-append "^" prefix)))) + (sort! (map symbol->string + (apropos-internal (string-append "^" prefix))) + string