Skip to content

Instantly share code, notes, and snippets.

@BenChung
Last active January 5, 2017 06:57
Show Gist options
  • Save BenChung/e82e3cbc1501f7044e04071b068c6cf1 to your computer and use it in GitHub Desktop.
Save BenChung/e82e3cbc1501f7044e04071b068c6cf1 to your computer and use it in GitHub Desktop.
#lang racket
(require redex)
(define-language KafKa
(e x
(call e m e)
(new C e ...))
(t anyt C)
(C m x ::= variable)
#:binding-forms (m (x t_1) t_2 e #:refers-to x)))
(redex-match KafKa (call e_1 m e_2) (term (call (new A) m x)))
(redex-match KafKa (call e_1 m e_2) (term (call (new A x) m x)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment