[Guile-commits] branch main updated: Fix inlinable-exports bug for pure modules

[Andy Wingo]

This is an automated email from the git hooks/post-receive script.

wingo pushed a commit to branch main
in repository guile.

The following commit(s) were added to refs/heads/main by this push:
     new d01ab7bf5 Fix inlinable-exports bug for pure modules
d01ab7bf5 is described below

commit d01ab7bf5cb97264b48bec96469360f1901d1a35
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Mon Jan 17 21:07:22 2022 +0100

    Fix inlinable-exports bug for pure modules
    
    * module/language/tree-il/inlinable-exports.scm (compute-decoder): Fix
    bug in which inlinable exports in a pure module would have a missing
    make-struct/no-tail binding.
---
 module/language/tree-il/inlinable-exports.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/language/tree-il/inlinable-exports.scm 
b/module/language/tree-il/inlinable-exports.scm
index 8ea5725f3..0873fb078 100644
--- a/module/language/tree-il/inlinable-exports.scm
+++ b/module/language/tree-il/inlinable-exports.scm
@@ -1,5 +1,5 @@
 ;;; Attaching inlinable definitions of exported bindings to modules
-;;; Copyright (C) 2021
+;;; Copyright (C) 2021, 2022
 ;;;   Free Software Foundation, Inc.
 ;;;
 ;;; This library is free software: you can redistribute it and/or modify
@@ -750,7 +750,7 @@
                            (iota (vtable-nfields vtable)))))
           `((eq? code ,code)
             (let* (,@(map (lambda (field) `(,field (lp))) fields))
-              (make-struct/no-tail (@ ,mod ,name) ,@fields)))))))
+              (make-struct/simple (@ ,mod ,name) ,@fields)))))))
   (define (constant-clause constant code)
     `((eq? code ,code) ',constant))