From dc83d33afb6f36d2e459fe8ae295529e9bd92412 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 8 Mar 2017 06:45:40 -0500 Subject: [PATCH] Cosmetic --- racket/syndicate/examples/actor/lambda.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/syndicate/examples/actor/lambda.rkt b/racket/syndicate/examples/actor/lambda.rkt index 4cbf5a8..4966700 100644 --- a/racket/syndicate/examples/actor/lambda.rkt +++ b/racket/syndicate/examples/actor/lambda.rkt @@ -42,6 +42,9 @@ (define (emit-actor! a) (set! actors (cons a actors))) + (define (gensym/intern base) + (string->symbol (symbol->string (gensym base)))) + (define ($ v) (format-symbol "$~a" v)) @@ -52,9 +55,6 @@ `(assert (rpc (list (list ',n ,@fvs) ,@vars) ,v))))))))) - (define (gensym/intern base) - (string->symbol (symbol->string (gensym base)))) - (define (compile-term term k) (match term [`(lambda (,var ...) ,body)