Custom Query (1630 matches)

Just a note to myself so I don't forget:

Get rid of the nested ifs in number dispatch by combining the headers of objects and then dispatching on the result using switch.

The mechanics would be a little bit ugly but possibly it's faster. Even if it isn't faster, it might be more readable.

Something like:

switch(COMBINE_TYPES(a, b)) {
case FIXNUM_FIXNUM:
   blabla
   break;
case FIXNUM_FLONUM:
   blabla
   break;
....
}

Reported by "plugd" on IRC:

(import (chicken string)
        (chicken gc)
        (chicken io))

(let loop ()
  (print (conc "Memory statistics: " (memory-statistics)))
  (eval '(begin (import (chicken string)) (print "Hello.")))
  (read-line)
  (loop))

I checked, and CHICKEN 4 also exhibits this behaviour, so it's not something new we recently introduced (as I remember we've been putting some effort into optimizing library imports)

Note: this is with the patch for #1757 applied, for the future 5.3.0.

Here is the issue. If this is an egg,

cakes.scm:

(module cakes () (import scheme (chicken module) match-generics) (reexport

(rename scheme (define define-og)) (rename match-generics (define-dx define))))

cakes.egg

((synopsis "A min via for import except")

(components (extension cakes)))

And here is a file that uses that egg:

(import (except cakes define)) (define (lamp x) 19) (define (lamp x y) 21) (+ (lamp 13 41)

(lamp 12))

The expected behavior is for this to bork or crash.

Instead it evals to 40, as if we had imported

(import (only cakes define))