diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/language/cps/effects-analysis.scm | 4 | ||||
-rw-r--r-- | 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 66e659583..4ca6e9815 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 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? |