From 5b407c62d562ca7a71c6ff2b2572196fd688133f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 26 Oct 2018 19:14:55 -0700 Subject: [PATCH] suspend --- csp/csp/hacs.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/csp/csp/hacs.rkt b/csp/csp/hacs.rkt index 3f7acad2..13a79541 100644 --- a/csp/csp/hacs.rkt +++ b/csp/csp/hacs.rkt @@ -2,6 +2,9 @@ (require racket/generator graph) (provide (all-defined-out)) +(define-syntax-rule (define/contract EXPR CONTRACT . BODY) + (define EXPR . BODY)) + (define-syntax when-debug (let () (define debug #t)