From c4e83f74c2f518d8c25959c6e7bb2b36e7058d01 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 24 Oct 2011 08:28:06 +0200 Subject: [PATCH] remove a stale comment * module/system/foreign.scm (define-wrapped-pointer-type): Remove stale comment. --- module/system/foreign.scm | 4 ---- 1 file changed, 4 deletions(-) diff --git a/module/system/foreign.scm b/module/system/foreign.scm index 37f9b41ac..e6e965545 100644 --- a/module/system/foreign.scm +++ b/module/system/foreign.scm @@ -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)