mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

sqrt and abs are interesting primitives

Browse source 
* module/language/cps/effects-analysis.scm:
* module/language/tree-il/primitives.scm (*interesting-primitive-names*):
  (*effect-free-primitives*): Add sqrt and abs.
This commit is contained in:
Andy Wingo 2014-02-13 11:04:55 +01:00
parent dd692618b8
commit 9b3c4cedd4
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/effects-analysis.scm
View file

@ -417,7 +417,9 @@
((logand . _) (cause &type-check))
((logior . _) (cause &type-check))
((logior . _) (cause &type-check))
((lognot . _) (cause &type-check)))
((lognot . _) (cause &type-check))
((sqrt _) (cause &type-check))
((abs _) (cause &type-check)))
;; Characters.
(define-primitive-effects

3
module/language/tree-il/primitives.scm
View file

@ -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?