1.Previous
3.Next

bwp-object function returns true if the reference given is a broken weak pointer, i.e., the target has been garbage-collected.

;; weak hashes;;(require 'hash-table)

(define (make-weak-table . args) (apply make-hash-table args))

(define (weak-table-set! table key data) (let ((w (hash-table-ref table key #f))) (if w (vector-set! w 0 data) (let ((w (make-weak-vector 1))) (vector-set! w 0 data) (hash-table-set! table key w)))))

(define

1.Previous
3.Next