[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: Use make-struct/simple in tree-il
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/02: Use make-struct/simple in tree-il |
Date: |
Mon, 22 Jan 2018 02:20:41 -0500 (EST) |
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)))