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

Fixes

Browse source
This commit is contained in:
Justin Ethier 2015-04-28 16:48:38 -04:00
parent 694f9f6266
commit 3ec2558a6f
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
cyclone.scm
View file

@ -29,13 +29,13 @@
(tagged-list? 'define-library ast))
(define (lib:name ast) (cadr ast))
(define (lib:exports ast)
(and-let* ((code (assoc 'export (cddr l))))
(and-let* ((code (assoc 'export (cddr ast))))
(cdr code)))
(define (lib:imports ast)
(and-let* ((code (assoc 'import (cddr l))))
(and-let* ((code (assoc 'import (cddr ast))))
(cdr code)))
(define (lib:body ast)
(and-let* ((code (assoc 'begin (cddr l))))
(and-let* ((code (assoc 'begin (cddr ast))))
(cdr code)))
;; TODO: include, include-ci, cond-expand
@ -58,14 +58,14 @@
(trace:info input-program) ;pretty-print
(cond
((library? input-program)
((library? (car input-program))
(set! program? #f)
(set! lib-exports (lib:exports input-program))
(set! lib-imports (lib:imports input-program))
(set! input-program (lib:body input-program))
(set! lib-exports (lib:exports (car input-program)))
(set! lib-imports (lib:imports (car input-program)))
(set! input-program (lib:body (car input-program)))
(error "TODO: I do not know how to compile a library"))
(else
(error "DEBUG: not a library")))
(error "DEBUG: not a library" input-program)))
;; TODO: how to handle stdlib when compiling a library??
(set! input-program (add-libs input-program))