; Main include for ds-lib-gambit

(define (ds-get-bit bit-list name)
  (define (bit-set n)
	(arithmetic-shift 1 n))
  (define (bl-loop pos lst)
	(cond ((null? lst) #f)
		  ((equal? name (car lst)) (bit-set pos))
		  (else (bl-loop (+ 1 pos) (cdr lst)))))
  (bl-loop 0 bit-list))