Changeset 15174 in project


Ignore:
Timestamp:
07/06/09 21:58:19 (10 years ago)
Author:
Mario Domenech Goulart
Message:

Fix to completions. ##sys#macro-environment seems to be a procedure in chicken 4.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/readline/readline.scm

    r14325 r15174  
    301301        (let ((index -1))
    302302          (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)))))))))))
    312313
    313314;; handling filename completion
Note: See TracChangeset for help on using the changeset viewer.