guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. v2.1.0-745-g9b3c4ce


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-745-g9b3c4ce
Date: Thu, 13 Feb 2014 10:06:40 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=9b3c4cedd43378f51aa2ec73a0eeeff1a04a301e

The branch, master has been updated
       via  9b3c4cedd43378f51aa2ec73a0eeeff1a04a301e (commit)
      from  dd692618b8345c7d6fd87c51628b5dcf1edb90db (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 9b3c4cedd43378f51aa2ec73a0eeeff1a04a301e
Author: Andy Wingo <address@hidden>
Date:   Thu Feb 13 11:04:55 2014 +0100

    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.

-----------------------------------------------------------------------

Summary of changes:
 module/language/cps/effects-analysis.scm |    4 +++-
 module/language/tree-il/primitives.scm   |    3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/module/language/cps/effects-analysis.scm 
b/module/language/cps/effects-analysis.scm
index 66e6595..4ca6e98 100644
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -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
diff --git a/module/language/tree-il/primitives.scm 
b/module/language/tree-il/primitives.scm
index 2ea5642..1703384 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?


hooks/post-receive
-- 
GNU Guile



reply via email to

[Prev in Thread] Current Thread [Next in Thread]