Stefan Israelsson Tampe <stefan.itampe@gmail.com> writes:

> It looks like you just put the symbol in the current module, so maybe the
> warning is
> just unessesary.
>
> here is the code in psyntax:
>
> (define get-global-definition-hook
>         (lambda (symbol module)
>           (if (and (not module) (current-module))
>               (warn "module system is booted, we should have a module"
> symbol))
>           (let ((v (module-variable (if module
>                                         (resolve-module (cdr module))
>                                         (current-module))
>                                     symbol)))
>
>
> so module parameter beeing #f will lead to a warning and an evaluation of
>    (module-variable (current-module) symbol)
>
> So if it's ok for the temporaries to be in the current-module then the
> warning need to silenced.
>
> E.g. In
> (set! generate-temporaries
>           (lambda (ls)
>             (arg-check list? ls 'generate-temporaries)
> (map (lambda (x) (wrap (gensym-hook) top-wrap #f)) ls)))
>
> Replace #f with (current-module) and you will not have a warning. But My
> psyntax-fu is
> weak so this is just my 2c
>
Thanks; I've now locally applied this patch: