Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use simpler constructs instead of and-let*

Browse source
This commit is contained in:
Justin Ethier 2015-06-24 23:02:03 -04:00
parent 8c38845006
commit b94fc646fb
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
libraries.scm
View file

@ -37,16 +37,16 @@
;; support more than 1 instance. ;; support more than 1 instance.
(define (lib:exports ast) (define (lib:exports ast)
(lib:result (lib:result
(and-let* ((code (assoc 'export (cddr ast)))) (let ((code (assoc 'export (cddr ast))))
(cdr code)))) (if code (cdr code) #f))))
(define (lib:imports ast) (define (lib:imports ast)
(lib:result (lib:result
(and-let* ((code (assoc 'import (cddr ast)))) (let ((code (assoc 'import (cddr ast))))
(cdr code)))) (if code (cdr code) #f))))
(define (lib:body ast) (define (lib:body ast)
(lib:result (lib:result
(and-let* ((code (assoc 'begin (cddr ast)))) (let ((code (assoc 'begin (cddr ast))))
(cdr code)))) (if code (cdr code) #f))))
(define (lib:includes ast) (define (lib:includes ast)
(map (map
(lambda (inc-lst) (lambda (inc-lst)