mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

fix erroneous compilation of #@2(1 2 3) as #(1 2 3)

Browse source 
* module/language/glil/compile-assembly.scm (dump-object): Fix the
  vector case to only match 0-indexed, vectors, not arrays like #@2(1 2
  3).
This commit is contained in:
Andy Wingo 2010-01-11 20:45:52 +01:00
parent 411313403c
commit 5a9c6dcbb3
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/glil/compile-assembly.scm
View file

@ -1,6 +1,6 @@
;;; Guile VM assembler ;;; Guile VM assembler
;; Copyright (C) 2001, 2009 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -558,7 +558,8 @@
`(,@kar `(,@kar
,@(dump-object (cdr x) (addr+ addr kar)) ,@(dump-object (cdr x) (addr+ addr kar))
(cons)))) (cons))))
((vector? x) ((and (vector? x)
(equal? (array-shape x) (list (list 0 (1- (vector-length x))))))
(let* ((len (vector-length x)) (let* ((len (vector-length x))
(tail (if (>= len 65536) (tail (if (>= len 65536)
(too-long "vector") (too-long "vector")