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)