From ea2167e702720fce5613cf1e862d296e1ce46479 Mon Sep 17 00:00:00 2001 From: mathieu2em Date: Tue, 23 Jul 2019 14:53:06 -0400 Subject: code cleanup --- scheme/gambit/geiser/gambit.scm | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) (limited to 'scheme') diff --git a/scheme/gambit/geiser/gambit.scm b/scheme/gambit/geiser/gambit.scm index ee307f3..e3e7dae 100644 --- a/scheme/gambit/geiser/gambit.scm +++ b/scheme/gambit/geiser/gambit.scm @@ -63,7 +63,7 @@ ;;(pp "-----NEXT1--key---") (cons (reverse result) lst)) (else (loop (cdr lst) (cons (car lst) result)))))) - + (define (get-optional lst) ;;(pp "getopt") ;;(pp lst) @@ -85,7 +85,7 @@ ;;(pp (cons (reverse (cons '... result)) '())) ;;(pp "-------next2---- rest--") (cons (reverse (cons '... result)) '())) - (else + (else (loop (cdr lst) (cons (if (pair? (car lst)) (caar lst) (car lst)) result)))))) (define (get-key lst) @@ -96,8 +96,8 @@ ((eq? (car lst) #!rest) (reverse (cons '... result))) (else (loop (cdr lst) (cons (car lst) result)))))) - - + + (let ((proc (##global-var-ref (##make-global-var method-name)))) (if (procedure? proc) (let ((method-tester (##decompile proc))) @@ -125,7 +125,6 @@ (symbols-list '())) (if (< i sym-len) (let ((sym (vector-ref sym-tab i))) - (pp sym) (loop (+ i 1) (if (symbol? sym) (let loop2 ((sym-list (if (and (##string-prefix? prefix sym) @@ -134,7 +133,6 @@ symbols-list)) (vect sym)) (let ((sym2 (##vector-ref vect 2))) - (pp sym2) (if (symbol? sym2) (if (and (##string-prefix? prefix sym2) (procedure? (##global-var-ref (##make-global-var sym)))) @@ -143,7 +141,7 @@ sym-list))) symbols-list))) symbols-list)))) - + (##sort-list (environment-symbols) string-ci