mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

add vector-length primitive

Browse source 
* module/language/tree-il/primitives.scm
  (*interesting-primitive-names*, *effect-free-primitives*): Recognize
  vector-length as an effect-free primitive.
This commit is contained in:
Andy Wingo 2011-10-28 11:19:01 +02:00
parent f00a957499
commit ba9f9f0d63
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/primitives.scm
View file

@ -60,7 +60,7 @@
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
vector-ref vector-set! vector-length vector-ref vector-set!
variable-ref variable-set! variable-ref variable-set!
variable-bound? variable-bound?
@ -141,7 +141,7 @@
+ * - / 1- 1+ quotient remainder modulo + * - / 1- 1+ quotient remainder modulo
not not
pair? null? list? symbol? vector? struct? string? pair? null? list? symbol? vector? struct? string?
string-length string-length vector-length
;; These all should get expanded out by expand-primitives!. ;; These all should get expanded out by expand-primitives!.
caar cadr cdar cddr caar cadr cdar cddr
caaar caadr cadar caddr cdaar cdadr cddar cdddr caaar caadr cadar caddr cdaar cdadr cddar cdddr