Changeset 15174 in project

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:

• release/4/readline/readline.scm (modified) (1 diff)

release/4/readline/readline.scm

@@ -301 +301 @@
         (let ((index -1))
           (lambda ()
-                (let loop ()
-                  (set! index (+ 1 index))
-                  (cond ((>= index (vector-length ##sys#macro-environment)) 
-                                 "")
-                                (else 
-                                  (let ((ref (vector-ref ##sys#macro-environment index)))
-                                        (if (null? ref)
-                                          (loop)
-                                          (symbol->string (caar ref))))))))))
+            (let ((macro-env (##sys#macro-environment)))
+              (let loop ()
+                (set! index (+ 1 index))
+                (cond ((>= index (length macro-env))
+                       "")
+                      (else 
+                       (let ((ref (list-ref macro-env index)))
+                         (if (null? ref)
+                             (loop)
+                             (symbol->string (car ref)))))))))))
 
 ;; handling filename completion