Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (ast:get-next-lambda-id!)

Browse source
This commit is contained in:
Justin Ethier 2018-03-24 18:40:30 -04:00
parent a750383cd1
commit 282fb0793c
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/ast.sld
View file

@ -23,9 +23,13 @@
ast:set-lambda-body!
ast:lambda-has-cont
ast:set-lambda-has-cont!
ast:get-next-lambda-id!
)
(begin
(define *lambda-id* 0)
(define (ast:get-next-lambda-id!)
(set! *lambda-id* (+ 1 *lambda-id*))
*lambda-id*)
(define-record-type <lambda-ast>
(ast:%make-lambda id args body has-cont)
ast:lambda?