diff options
author | Andy Wingo <wingo@pobox.com> | 2014-02-13 11:04:55 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-13 11:04:55 +0100 |
commit | 9b3c4cedd43378f51aa2ec73a0eeeff1a04a301e (patch) | |
tree | d1006fc09dd7888168d40ca5d87cb45e0d92e5b0 /module/language/tree-il/primitives.scm | |
parent | dd692618b8345c7d6fd87c51628b5dcf1edb90db (diff) | |
download | guile-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.scm | 3 |
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? |