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 <[email protected]> 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
