mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix inlinable-exports serialization for kwargs

Browse source 
* module/language/tree-il/inlinable-exports.scm (inlinable-exp): Call
assq-ref in the right order.  Embarrassing!
* module/language/tree-il/peval.scm (peval): Print the symbols so that
we can diagnose later failures.
This commit is contained in:
Andy Wingo 2024-03-18 16:40:32 +01:00
parent e15617dc0e
commit 2c645571b3
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/inlinable-exports.scm
View file

@ -1,5 +1,5 @@
;;; Attaching inlinable definitions of exported bindings to modules ;;; Attaching inlinable definitions of exported bindings to modules
;;; Copyright (C) 2021, 2022 ;;; Copyright (C) 2021, 2022, 2024
;;; Free Software Foundation, Inc. ;;; Free Software Foundation, Inc.
;;; ;;;
;;; This library is free software: you can redistribute it and/or modify ;;; This library is free software: you can redistribute it and/or modify
@ -458,7 +458,7 @@
(map (map
(match-lambda (match-lambda
((kw name var) ((kw name var)
(list kw name (assq-ref var bound)))) (list kw name (assq-ref bound var))))
kws)))) kws))))
(map recur* inits) (map recur* inits)
vars* vars*

2
module/language/tree-il/peval.scm
View file

@ -1759,7 +1759,7 @@ top-level bindings from ENV and return the resulting expression."
;; is required by (and checked by) other parts of the ;; is required by (and checked by) other parts of the
;; compiler, e.g. tree-il-to-cps lowering. ;; compiler, e.g. tree-il-to-cps lowering.
(unless (equal? syms (match kw (((k name sym) ...) sym))) (unless (equal? syms (match kw (((k name sym) ...) sym)))
(error "internal error: unexpected kwarg syms")) (error "internal error: unexpected kwarg syms" kw syms))
(define (process-kw-args positional? args pbinds) (define (process-kw-args positional? args pbinds)
(match args (match args