summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-10-28 11:19:01 +0200
committerAndy Wingo <wingo@pobox.com>2011-10-28 11:19:01 +0200
commitba9f9f0d639ee5063c5f28a1e9c571d3b498dcff (patch)
treee93594113e4105bbca6aab6f357f002c0c53857d
parentf00a9574998521bd7d6d5caccba7c4e5c1b77878 (diff)
downloadguile-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.scm4
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