Thank you!
Sat, 28 Jun 2014 09:41:38 +0200 от "Jos Koot" :
>#lang racket
>
>(define-syntax (set!-values* stx)
> (syntax-case stx ()
> ((_ (var ...) values-expr)
> (with-syntax (((local-var ...) (generate-temporaries #'(var ...
> #'(let-values (((local-var ...) values-expr))
> (set!*
#lang racket
(define-syntax (set!-values* stx)
(syntax-case stx ()
((_ (var ...) values-expr)
(with-syntax (((local-var ...) (generate-temporaries #'(var ...
#'(let-values (((local-var ...) values-expr))
(set!* var local-var) ...)
(define-syntax (set!* stx)
(syntax-case st
On June 28, 2014, at 12:43AM, Roman Klochkov wrote:
Racket Users list:
http://lists.racket-lang.org/users
On June 28, 2014, at 12:43AM, Roman Klochkov wrote:
Racket Users list:
http://lists.racket-lang.org/users
4 matches
Mail list logo