summaryrefslogtreecommitdiff
path: root/module/language/tree-il/primitives.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-02-13 11:04:55 +0100
committerAndy Wingo <wingo@pobox.com>2014-02-13 11:04:55 +0100
commit9b3c4cedd43378f51aa2ec73a0eeeff1a04a301e (patch)
treed1006fc09dd7888168d40ca5d87cb45e0d92e5b0 /module/language/tree-il/primitives.scm
parentdd692618b8345c7d6fd87c51628b5dcf1edb90db (diff)
downloadguile-9b3c4cedd43378f51aa2ec73a0eeeff1a04a301e.tar.gz
sqrt and abs are interesting primitives
* module/language/cps/effects-analysis.scm: * module/language/tree-il/primitives.scm (*interesting-primitive-names*): (*effect-free-primitives*): Add sqrt and abs.
Diffstat (limited to 'module/language/tree-il/primitives.scm')
-rw-r--r--module/language/tree-il/primitives.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index 2ea56427e..170338425 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -48,6 +48,7 @@
= < > <= >= zero? positive? negative?
+ * - / 1- 1+ quotient remainder modulo
ash logand logior logxor lognot
+ sqrt abs
not
pair? null? list? symbol? vector? string? struct? number? char? nil?
@@ -163,7 +164,7 @@
eq? eqv? equal?
= < > <= >= zero? positive? negative?
ash logand logior logxor lognot
- + * - / 1- 1+ quotient remainder modulo
+ + * - / 1- 1+ sqrt abs quotient remainder modulo
not
pair? null? nil? list?
symbol? variable? vector? struct? string? number? char?