suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Added define-temp-ids macro to lib/low.rkt

Browse Source
This commit is contained in:
Georges Dupéron 2015-11-18 15:24:57 +01:00
parent a9a4b934b2
commit 0602d2963e
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
graph/lib/low.rkt
View File

@ -466,12 +466,17 @@
(define-modules ([no-submodule] [ids-untyped typed/racket/no-check]) (define-modules ([no-submodule] [ids-untyped typed/racket/no-check])
(provide format-ids (provide format-ids
hyphen-ids hyphen-ids
format-temp-ids; format-temp-ids
#|t/gen-temp|#) #|t/gen-temp|#
define-temp-ids)
(require/typed racket/syntax (require/typed racket/syntax
[format-id (→ Syntax String (U String Identifier) * [format-id (→ Syntax String (U String Identifier) *
Identifier)]) Identifier)])
(require (only-in racket/syntax define/with-syntax)
(for-syntax racket/base
racket/syntax
syntax/parse))
;(require racket/sequence) ;; in-syntax ;(require racket/sequence) ;; in-syntax
(require "sequences.rkt" (require "sequences.rkt"
@ -526,7 +531,17 @@
(define (format-temp-ids format . vs) (define (format-temp-ids format . vs)
;; Introduce the binding in a fresh scope. ;; Introduce the binding in a fresh scope.
(apply format-ids (λ _ ((make-syntax-introducer) #'())) format vs))) (apply format-ids (λ _ ((make-syntax-introducer) #'())) format vs))
(define-syntax (define-temp-ids stx)
(syntax-parse stx
[(_ base:id format)
#:when (string? (syntax-e #'format))
(with-syntax ([pat (format-id #'base (syntax-e #'format) #'base)])
#'(define/with-syntax (pat (... ...))
(format-temp-ids format #'(base (... ...)))))]
[(_ name:expr format:expr . vs)
#`(define/with-syntax name (format-temp-ids format . vs))])))
(module+ test (module+ test
(require ;(submod "..") (require ;(submod "..")