mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Hack around a defect in `define-wrapped-pointer-type'.

Browse source 
* module/system/foreign.scm (define-wrapped-pointer-type): Choose
  TYPE-NAME deterministically.
This commit is contained in:
Ludovic Courtès 2011-02-07 23:53:25 +01:00
parent 6debc49e2c
commit 8a302b9f78
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
module/system/foreign.scm
View file

@ -179,8 +179,19 @@ pointer object and returns an object that satisfies PRED, and UNWRAP
which does the reverse. PRINT must name a user-defined object printer."
(syntax-case stx ()
((_ pred wrap unwrap print)
(with-syntax ((type-name (datum->syntax #'pred (gensym)))
(%wrap (datum->syntax #'wrap (gensym))))
(and (symbol? (syntax->datum #'pred))
(symbol? (syntax->datum #'wrap))
(symbol? (syntax->datum #'unwrap)))
;; Choose TYPE-NAME deterministically to help separate
;; compilation. It could be an arg of the macro, but that would
;; expose an implementation detail.
(with-syntax ((type-name (datum->syntax
#'pred
(symbol-append '%%
(syntax->datum #'pred)
'-type-name)))
(%wrap (datum->syntax #'wrap (gensym "wrap"))))
#'(begin
(define-record-type type-name
(%wrap pointer)