syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Cosmetic

This commit is contained in:
Tony Garnock-Jones 2017-03-08 06:45:40 -05:00
parent c51f18efc2
commit dc83d33afb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/examples/actor/lambda.rkt
View File

@ -42,6 +42,9 @@
(define (emit-actor! a) (define (emit-actor! a)
(set! actors (cons a actors))) (set! actors (cons a actors)))
(define (gensym/intern base)
(string->symbol (symbol->string (gensym base))))
(define ($ v) (define ($ v)
(format-symbol "$~a" v)) (format-symbol "$~a" v))
@ -52,9 +55,6 @@
`(assert (rpc (list (list ',n ,@fvs) ,@vars) `(assert (rpc (list (list ',n ,@fvs) ,@vars)
,v))))))))) ,v)))))))))
(define (gensym/intern base)
(string->symbol (symbol->string (gensym base))))
(define (compile-term term k) (define (compile-term term k)
(match term (match term
[`(lambda (,var ...) ,body) [`(lambda (,var ...) ,body)