From 8efbf6052805d30b24084a07bf26a2f1e157c6e5 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 18 Feb 2019 22:12:55 -0500 Subject: [PATCH] Must explicitly call (complex?) now --- scheme/cyclone/cps-optimizations.sld | 1 + scheme/cyclone/util.sld | 1 + 2 files changed, 2 insertions(+) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 3cc29766..e8cab862 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -306,6 +306,7 @@ (define (const-atomic? exp) (or (integer? exp) (real? exp) + (complex? exp) ;(string? exp) ;(vector? exp) ;(bytevector? exp) diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld index aa043d18..0c2c414c 100644 --- a/scheme/cyclone/util.sld +++ b/scheme/cyclone/util.sld @@ -169,6 +169,7 @@ (define (const? exp) (or (integer? exp) (real? exp) + (complex? exp) (string? exp) (vector? exp) (bytevector? exp)