Skip to content

Instantly share code, notes, and snippets.

@samth

samth/static-struct-info.rkt

Created January 23, 2013 22:48
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save samth/4615290 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save samth/4615290 to your computer and use it in GitHub Desktop.
Download ZIP
The magic of static struct information.
Raw
static-struct-info.rkt
#lang racket
(define-syntax m
(list #f #'cons #'pair? (list #'car #'cdr) (list #f #f) #t))
(match (cons 1 2)
[(m a b) (+ a b)])
;; => 3
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment