From 282fb0793c7d554e8bd966dd3960fc7628fb8725 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 24 Mar 2018 18:40:30 -0400
Subject: [PATCH] Added (ast:get-next-lambda-id!)

---
 scheme/cyclone/ast.sld | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scheme/cyclone/ast.sld b/scheme/cyclone/ast.sld
index 1c9cf628..e7d1d419 100644
--- a/scheme/cyclone/ast.sld
+++ b/scheme/cyclone/ast.sld
@@ -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?