diff options
author | Andy Wingo <wingo@pobox.com> | 2022-01-17 21:07:22 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2022-01-17 21:07:22 +0100 |
commit | d01ab7bf5cb97264b48bec96469360f1901d1a35 (patch) | |
tree | 7ab96a17d0a758ff663b929cc5ab21bc2c7bfcc6 | |
parent | 222b3208689cedfcccbada195fe92bde3015a803 (diff) | |
download | guile-d01ab7bf5cb97264b48bec96469360f1901d1a35.tar.gz |
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.
-rw-r--r-- | module/language/tree-il/inlinable-exports.scm | 4 |
1 files 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)) |