Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +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 (export
ast:make-lambda ast:make-lambda
ast:%make-lambda
ast:lambda? ast:lambda?
ast:lambda-id ast:lambda-id
ast:lambda-args ast:lambda-args
ast:set-lambda-args! ast:set-lambda-args!
ast:lambda-body ast:lambda-body
ast:se-lambda-body! ast:set-lambda-body!
) )
(begin (begin
(define *lambda-id* 0) (define *lambda-id* 0)
@ -28,7 +29,7 @@
ast:lambda? ast:lambda?
(id ast:lambda-id) (id ast:lambda-id)
(args ast:lambda-args ast:set-lambda-args!) (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) (define (ast:make-lambda args body)
(set! *lambda-id* (+ 1 *lambda-id*)) (set! *lambda-id* (+ 1 *lambda-id*))
(ast:%make-lambda *lambda-id* args body)) (ast:%make-lambda *lambda-id* args body))