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

Fixed misspelling, export full make function

Browse source
This commit is contained in:
Justin Ethier 2016-05-16 23:49:27 -04:00
parent dad7a459ce
commit b606ccf150
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/ast.sld
View file

@ -14,12 +14,13 @@
)
(export
ast:make-lambda
ast:%make-lambda
ast:lambda?
ast:lambda-id
ast:lambda-args
ast:set-lambda-args!
ast:lambda-body
ast:se-lambda-body!
ast:set-lambda-body!
)
(begin
(define *lambda-id* 0)
@ -28,7 +29,7 @@
ast:lambda?
(id ast:lambda-id)
(args ast:lambda-args ast:set-lambda-args!)
(body ast:lambda-body ast:se-lambda-body!))
(body ast:lambda-body ast:set-lambda-body!))
(define (ast:make-lambda args body)
(set! *lambda-id* (+ 1 *lambda-id*))
(ast:%make-lambda *lambda-id* args body))