diff options
author | Andy Wingo <wingo@pobox.com> | 2011-10-28 11:19:01 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-10-28 11:19:01 +0200 |
commit | ba9f9f0d639ee5063c5f28a1e9c571d3b498dcff (patch) | |
tree | e93594113e4105bbca6aab6f357f002c0c53857d | |
parent | f00a9574998521bd7d6d5caccba7c4e5c1b77878 (diff) | |
download | guile-ba9f9f0d639ee5063c5f28a1e9c571d3b498dcff.tar.gz |
add vector-length primitive
* module/language/tree-il/primitives.scm
(*interesting-primitive-names*, *effect-free-primitives*): Recognize
vector-length as an effect-free primitive.
-rw-r--r-- | module/language/tree-il/primitives.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm index 445bdc1f6..2f03ab7b9 100644 --- a/module/language/tree-il/primitives.scm +++ b/module/language/tree-il/primitives.scm @@ -60,7 +60,7 @@ caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr - vector-ref vector-set! + vector-length vector-ref vector-set! variable-ref variable-set! variable-bound? @@ -141,7 +141,7 @@ + * - / 1- 1+ quotient remainder modulo not pair? null? list? symbol? vector? struct? string? - string-length + string-length vector-length ;; These all should get expanded out by expand-primitives!. caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr |