Changeset 15174 in project
- Timestamp:
- 07/06/09 21:58:19 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/readline/readline.scm
r14325 r15174 301 301 (let ((index -1)) 302 302 (lambda () 303 (let loop () 304 (set! index (+ 1 index)) 305 (cond ((>= index (vector-length ##sys#macro-environment)) 306 "") 307 (else 308 (let ((ref (vector-ref ##sys#macro-environment index))) 309 (if (null? ref) 310 (loop) 311 (symbol->string (caar ref)))))))))) 303 (let ((macro-env (##sys#macro-environment))) 304 (let loop () 305 (set! index (+ 1 index)) 306 (cond ((>= index (length macro-env)) 307 "") 308 (else 309 (let ((ref (list-ref macro-env index))) 310 (if (null? ref) 311 (loop) 312 (symbol->string (car ref))))))))))) 312 313 313 314 ;; handling filename completion
Note: See TracChangeset
for help on using the changeset viewer.