Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (9 sloc) 267 Bytes
(set! *echo* #t)
(set! *echo:sexp* #t)
(set! *echo:expand* #t)
(define* make-generator
(fn* (seed)
(fn* () (set! seed (+ seed 1)))))
(define* next-generic-id (make-generator 0))
(define* +nil-class+ (Object))
(define* +void-class+ (Object))