From b94fc646fb1df4449f47e1d06f032f6a043a5aba Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 24 Jun 2015 23:02:03 -0400 Subject: [PATCH] Use simpler constructs instead of and-let* --- libraries.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/libraries.scm b/libraries.scm index 4200b0c9..9687d18a 100644 --- a/libraries.scm +++ b/libraries.scm @@ -37,16 +37,16 @@ ;; support more than 1 instance. (define (lib:exports ast) (lib:result - (and-let* ((code (assoc 'export (cddr ast)))) - (cdr code)))) + (let ((code (assoc 'export (cddr ast)))) + (if code (cdr code) #f)))) (define (lib:imports ast) (lib:result - (and-let* ((code (assoc 'import (cddr ast)))) - (cdr code)))) + (let ((code (assoc 'import (cddr ast)))) + (if code (cdr code) #f)))) (define (lib:body ast) (lib:result - (and-let* ((code (assoc 'begin (cddr ast)))) - (cdr code)))) + (let ((code (assoc 'begin (cddr ast)))) + (if code (cdr code) #f)))) (define (lib:includes ast) (map (lambda (inc-lst)