Changeset 12130 in project

Timestamp:

10/09/08 09:48:55 (12 years ago)

Author:

felix winkelmann

Message:

added missing entry in chicken.import.scm for load-verbose; require-extension didn't generate import code for registered feature id [both reported by Peter Bex]

Location:

chicken/trunk

Files:

• TODO (modified) (1 diff)
• chicken.import.scm (modified) (1 diff)
• eval.scm (modified) (1 diff)
• expand.scm (modified) (2 diffs)

chicken/trunk/TODO

@@ -47 +47 @@
    variable known (and allows inlining/contraction)
 ** when inlining, consing arg-list with "list" may make get-keyword possible foldable
+** using plists instead of symbol lists (block-globals, etc.) might speed up things
 
 * tests

chicken/trunk/chicken.import.scm

@@ -122 +122 @@
          load-relative
          load-library
+         load-verbose
          machine-byte-order
          machine-type

chicken/trunk/eval.scm

@@ -1203 +1203 @@
                        (memq id builtin-features/compiled)
                        (##sys#feature? id) ) )
-               (values '(##core#undefined) #t) )
+               (values (impform '(##core#undefined) id #t) #t) )
               ((memq id ##sys#core-library-modules)
                (values

chicken/trunk/expand.scm

@@ -850 +850 @@
                 (and-let* ((a (assq id (import-env)))
                            ((not (eq? aid (cdr a)))))
-                  (##sys#warn "re-importing already imported identfier: " id))))
+                  (##sys#warn "re-importing already imported identfier" id))))
             vsv)
            (for-each
@@ -856 +856 @@
               (and-let* ((a (assq (car imp) (macro-env)))
                          ((not (eq? (cdr imp) (cdr a)))))
-                (##sys#warn "re-importing already imported syntax: " (car imp))) )
+                (##sys#warn "re-importing already imported syntax" (car imp))) )
             vss)
            (import-env (append vsv (import-env)))