From 69a2547b5b02fc95c7964f1923037a30b1ed0958 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 5 May 2016 03:15:45 -0400
Subject: [PATCH] Initial file

---
 scheme/cyclone/ast.sld | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 scheme/cyclone/ast.sld

diff --git a/scheme/cyclone/ast.sld b/scheme/cyclone/ast.sld
new file mode 100644
index 00000000..26a38494
--- /dev/null
+++ b/scheme/cyclone/ast.sld
@@ -0,0 +1,29 @@
+;;;; Cyclone Scheme
+;;;; https://github.com/justinethier/cyclone
+;;;;
+;;;; Copyright (c) 2014-2016, Justin Ethier
+;;;; All rights reserved.
+;;;;
+;;;; This module defines abstract syntax tree types used during compilation.
+;;;;
+
+(define-library (ast)
+;(define-library (scheme cyclone ast)
+  (import (scheme base))
+  (export
+     ast:make-lambda
+     ast:lambda?
+     ast:lambda-id
+     ast:lambda-args 
+     ast:set-lambda-args!
+     ast:lambda-body 
+     ast:se-lambda-body!
+  )
+  (begin
+    (define-record-type <lambda-ast>
+     (ast:make-lambda id args body)
+     ast:lambda?
+     (id ast:lambda-id)
+     (args ast:lambda-args ast:set-lambda-args!)
+     (body ast:lambda-body ast:se-lambda-body!))
+))