[Guile-commits] 02/02: Use make-struct/simple in tree-il

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 98fc9c0380e3d47a7100654d3e0c088e7862bc9d
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 22 08:09:33 2018 +0100

    Use make-struct/simple in tree-il
    
    * module/language/tree-il.scm (borrow-core-vtables): Use
      make-struct/simple.
---
 module/language/tree-il.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm
index 88e943b..5cb4710 100644
--- a/module/language/tree-il.scm
+++ b/module/language/tree-il.scm
@@ -1,4 +1,4 @@
-;;;;   Copyright (C) 2009-2014, 2017 Free Software Foundation, Inc.
+;;;;   Copyright (C) 2009-2014, 2017-2018 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -86,7 +86,7 @@
                    (let lp ((n 0) (fields fields)
                             (out (cons*
                                   #`(define (#,ctor #,@sfields)
-                                      (make-struct/no-tail #,type #,@sfields))
+                                      (make-struct/simple #,type #,@sfields))
                                   #`(define (#,pred x)
                                       (and (struct? x)
                                            (eq? (struct-vtable x) #,type)))