From dd77c4640014629a4473ac6ed7578de50cdd1198 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 16 Aug 2018 18:06:47 -0400 Subject: [PATCH] Issue #272 - Added more predicates --- scheme/cyclone/transforms.sld | 35 ++++++++++++++++++++++++++++++++++- 1 file changed, 34 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld index 5ca09ce1..add78d10 100644 --- a/scheme/cyclone/transforms.sld +++ b/scheme/cyclone/transforms.sld @@ -875,7 +875,40 @@ ((and (eq? #t (if->then new-ast)) (eq? #f (if->else new-ast)) (app? (if->condition new-ast)) - (member (car (if->condition new-ast)) '(Cyc-fast-gt))) ;; Boolean return + (member + (car (if->condition new-ast)) + '(Cyc-fast-eq + Cyc-fast-gt + Cyc-fast-lt + Cyc-fast-gte + Cyc-fast-lte + Cyc-fast-char-eq + Cyc-fast-char-gt + Cyc-fast-char-lt + Cyc-fast-char-gte + Cyc-fast-char-lte + eq? + eqv? + equal? + boolean? + char? + eof-object? + null? + number? + real? + integer? + pair? + port? + procedure? + Cyc-macro? + vector? + string? + symbol? + = + > + < + >= + <=))) ;; Boolean return (if->condition new-ast)) (else new-ast))))