[gambit-list] Bug: _t-c-1.scm and _util.scm use make-table with (declare (not extended-bindings))

Bradley Lucier lucier at math.purdue.edu
Tue May 22 12:20:46 EDT 2007


Marc:

One finds

[brad:~/programs/gambc-4.0b22/gsc] lucier% grep make-table *.scm
_host.scm:(define (make-table . args)
_t-c-1.scm:  (set! targ-glo-vars         (make-table 'test: eq?))
_t-c-1.scm:  (set! targ-sym-objs         (make-table 'test: eq?))
_t-c-1.scm:  (set! targ-key-objs         (make-table 'test: eq?))
_t-c-1.scm:  (set! targ-num-objs         (make-table 'test: eqv?))
_t-c-1.scm:  (set! targ-prc-objs-seen    (make-table 'test: eq?))
_utils.scm:  (vector (make-table 'test: test)

and extended-bindings is not declared, so when a user redefines make- 
table it screws up the compiler.

Brad



More information about the Gambit-list mailing list