bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

manual-ex.rkt (407B)

      1 #lang racket/base
      2 (require (for-syntax racket/base))
      3 
      4 (provide (all-defined-out))
      5 
      6 (define (f) 10)
      7 (define (g x y) (void))
      8 (define (h x #:y y) (void))
      9 (define (i x #:y [y #f]) (void))
     10 (define (j) (void))
     11 
     12 (define-syntax-rule (m x) 'x)
     13 
     14 (define-syntax n (lambda (stx) #`(quote #,stx)))
     15 
     16 (define p (make-parameter 10))
     17 (define q (make-parameter #f))
     18 
     19 (define-struct pt (x y))
     20 (struct pn (x y))
     21 
     22 (define v 10)