summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-22 08:09:33 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-22 08:09:33 +0100
commit98fc9c0380e3d47a7100654d3e0c088e7862bc9d (patch)
treef101fc9fd30d71e9592ffd676fca48ebff7ee4f1
parent5fcc761b43702fa18e768f5e9cfce7199a3c8a5c (diff)
Use make-struct/simple in tree-il
* module/language/tree-il.scm (borrow-core-vtables): Use make-struct/simple.
-rw-r--r--module/language/tree-il.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm
index 88e943b75..5cb4710f2 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)))