10 lines
179 B
Racket
10 lines
179 B
Racket
#lang s-exp "../lang/base.rkt"
|
|
|
|
(provide fresh-id)
|
|
|
|
|
|
;; fresh-id: -> string
|
|
;; Returns a freshly generated id.
|
|
(define (fresh-id)
|
|
(symbol->string (gensym 'fresh-web-world-id)))
|