mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

remove a stale comment

Browse source 
* module/system/foreign.scm (define-wrapped-pointer-type): Remove stale
  comment.
This commit is contained in:
Andy Wingo 2011-10-24 08:28:06 +02:00
parent 203a92b67b
commit c4e83f74c2
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/foreign.scm
View file

@ -192,10 +192,6 @@ which does the reverse. PRINT must name a user-defined object printer."
;; PTR1 == PTR2 <-> (eq? (wrap PTR1) (wrap PTR2)).
(let ((ptr->obj (make-weak-value-hash-table 3000)))
(lambda (ptr)
;; XXX: We can't use `hash-create-handle!' +
;; `set-cdr!' here because the former would create a
;; weak-cdr pair but the latter wouldn't register a
;; disappearing link (see `scm_hash_fn_set_x'.)
(or (hash-ref ptr->obj ptr)
(let ((o (%wrap ptr)))
(hash-set! ptr->obj ptr o)